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ur Vlewjroni the Bridge space has been 
severely shortened this time around by 
an embarrassingly long list of program 

corrections. We'll therefore skip the chatty 

opening and get right to this month's Ahoy! 

It's seldom that we devote feature space to a 
single product. But we think you'll approve of our 
departure from usual procedure after reading The 
MSD SD-2: An Indepth Report. Morton Kevelson 
takes the new disk drive apart, and puts the pieces 
together for you. (Turn to page 42.) 

The one software package that everyone gets 
around to owning sooner or later is a database. But 
not everyone winds up owning the database that's 

PROGRAM CORRECTIONS! 

If you missed last issue, be advised that new 
versions of our C-64 and VIC 20 Bug Repellents 
were introduced. If you'd previously typed in the 
versions that appeared in our April or May issues, 
you must update them to conform to the versions 
appearing last month and this month. 

Other program corrections are as follows: 

Regarding Sound Concept, the program lines pro- 
vided on page 98 that must be incorporated into all 
outside BASIC programs that make use of Sound 
Concept should have concluded as follows: 
62000 POKE l.INT (AD/256) : POKE 0, 

AD - 256 * PEEK (1):P0KE 828, 1:P 
OKE 782,3:RETURN 

The relevant lines of Test 1 of Memory Manage- 
ment should be corrected to read as follows: 

20 IFPEEK(25I)=1GOT090 

50 G0SUB200:G0SUB300 

70 POKE44,192:REM FOR VIC POKE 44 

,4 

200 PRINTPEEK(43);PEEK(44);PEEK(4 

5);PEEK(46) 

220 PRINTPEEK(51);PEEK(52);PEEK(5 

5);PEEK(56) 

230 RETURN 

Biorhythm contains a slight glitch which can be 
eliminated by correcting the relevant lines to read as 
follows (also, delete lines 155 and 255): 

45 IFLEN(BI$)<>I00RLEN(DA$)<>10TH 

ENGOT0275 

170 G0T0162 

250 PRINT'MCD} (CD) (CD) HIT ANY KE 

Y TO CONTINUE." 

265 DM$=STR$(CM%):DD$=STR$(CD%):D 

Y$=STR$(CY%) 

270 GOT049 j 

4 AHOY! 



right for him. In Database Buyer's Guide, Larry 
Bihimeyer surveys some of the choices available for 
the VIC and 64. (Turn to page 25.) 

We haven't run a users group feature since our 
February issue. Not because of lack of interest, but 
because we were looking for the right author to be- 
gin our new semi-regular column devoted to the 
subject. We found Joycelyn Woods, membership 
secretary of New York City's leading Commodore 
users group. She'll tell you all about Starting or 
Joining a Users Group. (Turn to page 21.) 

Michael Kleinert and David Barron have returned 
to teach you how to manipulate your cursor in un- 
dreamed of ways. (Turn to page 37.) 

Richard Herring continues his six-part 
Educational Software series. Part V contains some 
of the most usefiil information yet provided for par- 
ents of aspiring scholars. CRim to page 63.) 

We know you'll find the two utility programs fea- 
tured this issue particularly useful. Bob Spirko's 
Checklist will help even the average C-64 owner to 
put order into his life. (Turn to page 19.) And 
Renumbering Utility by Anthony Wood is as useful 
as it is short. (Turn to page 29.) 

As for games, we've got them, too. (We sure 
wouldn't bring them up if we didn't have them'.) 
Brisk by Joseph Fusco will let you match 
card-sharking prowess with your Commodore 64. 
(Turn to page 41.) What's My Job? by B.W. Behling 
(author of Easy Access Address Book and / Got Bio- 
rhythm) will, as the saying goes, amaze your friends 
with its ability to guess their occupations. (Turn to 
page 11.) And Andy Van Duyne's Math Defender 
will let kids and adults alike bone up on their 
arithmetic while experiencing real arcade game 
excitement. (Turn to page 47.) 

You'll find all our regular features inside as well. 
That means Creating Your Own Games on the VIC 
and 64 wherein Orson Scott Card talks about de- 
signing the kind of compelling screen displays you 
need to hold a player's interest (turn to page 13); 
The Rupert Report, in which Dale Rupert launches 
into an exhaustive discussion of sequential files 
(turn to page 59); and Commodores, in which Dale 
unwinds from all that programming by teasing the 
brains of Ahoy'.'s most daring readers. 

We'll permit ourselves just one bit of chat. How 
do you like our cover? We hope you do, because 
you're going to be seeing a lot of it. All ftiture 
issues of Ahoy! will feature that design, with 
different specifics inserted in the screens. 

Thanks for coming onboard once again! 

— David Allikas 
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ALL THE PRINTER NEWS 
THATS FIT TO PRINT 

Cardco, long known for produc- 
ing tnterfeces that connect the 
C-64 and VIC 20 to non-Commo- 
dore printers, now seem intent on 
cutting into their own sales with a 
line of letter-quality printers that 
connect to Commodore computers 
without an interface. 

The LQ/l, already seen in our 
ad pages, feaaires standard fric- 
tion-feed and optional tractor-feed. 
Either serial or lineprint modes 
can be selected by means of a 
simple DIP switch of>eration. 
Printing speed is 14 characters per 
second; pitch can be 10, 12, or 15. 
Price is $649.95. 

The ljQ/3, priced at $449.95, 
includes many of the features of 
the LQ/l. As with the LQ/l, its 
ESC sequence allows minimum 
increments of J4o inch for carriage 
movement and ^g inch for paper 
feed, making bold print, super- 
script, subscript, and underlining 
functions possible when used with 
an advanced word processor. 
Speed is 13 characters per second; 
pitch is 10. 

The more compact LQ/2 
($349.95) utilizes a rotating char- 
acter drum instead of a daisy 
wheel. It is a true portable, 
weighing only 6.6 pounds and fea- 
turing an optional internal battery. 
Printing speed is 13 characters per 
second. 

All three printers feature bidi- 
rectional printing with logic-seek- 
ing and a character set of 96. 

Cardco, Inc., 313 Mathewson, 
Wichita, KS 67214 (phone: 316- 
267-6525). 



Amdek Corporation has also re- 
leased three new letter quality 
printers, including a portable (the 
5025) that prints at 25 characters 
per second and two desktops: the 
5040 (40 characters per second) 




LQ/l: serial and lineprint modes. 
READER SERVICE NO. 17 



and RS-232 interfaces. 

Amdek Corporation, Printer 
Pa>ducts, 2201 Lively Blvd., Elk 
Grove Village, IL 600(J7 (phone: 
312-364-1180). 

INCREASED C-64 MEMORY 

Sure, 64K is the accepted mi- 
crocomputer industry standard— 
but since when have industry stan- 
dards meant anything to Commo- 
dore 64 owners? Leader Electron- 
ic Technology Company (LETCO), 
who gave us the first 64K RAM 
module for the VIC (the 64KV) 
have developed a 64K memory 




LQ/2: optional internal battery. 
READER SERVICE NO. 18 




LQ/3: has many features of LQ/l. 
READER SERVICE NO. 19 

and the 5055 (55 characters per 
second). As with automobiles, the 
price of increased speed is a high 
one; the printers retail for $799, 
$1675, and $1990 respectively. All 
include built-in Centronics Parallel 



Double your C-64's memory. 
READER SERVICE NO. 20 

expander for the 64. The 64KC 
RAM memory expander plugs di- 
rectly into the 64's expansion port, 
providing the user with eight sep- 
arate 8K blocks of paged memory 
that can each be selected by a sin- 
gle POKE instruction. 

Owners of the 64KV need only 
the 64KVA adaptor to use their 
VIC expander on the 64. The 
64KVA sells for $29.95. the 64KV 
for $109.95, and the 64KC for 
$139.95. LETCO is also develop- 
ing an expander that will allow up 
to 256K of memory. 

LETCO, 7310 Wells Road, Plain 
City, OH 43064 (phone: 614- 
873-4410). 

AHOY! 5 



COMMODORE'S 
GREATEST HITS 

Once again, we provide Bill- 
board Magazine's ranking of top- 
selling computer software in the 
categories of Entertainment, Edu- 
cation, and Home Management, 
for the week ended 4/28/84. Only 
the Commodore compatibles in 
the Top 10 or 20 are listed. Copy- 
right 1984 by Billboard Publica- 
tions. Inc.. compiled by the Bill- 
board Research Department, and 
reprinted with permission. 

Entertainment: Flitihl Simulator 
II, Sublogic (#1); Zork I, Intbcom 
(#3); Beacb-Head, Access (#4); 
Aivlum, Electronic Arts (#8); Pin- 
hall Construction Set, Electronic 
Arts (#9); Mystery Master: Mur- 
der by the Dozen, CBS Software 
(#11); Deadline. Inlbcom (#12); 
ZcvLwn, Synapse (#13); Blue Max, 
Synapse (#16); Choplifier, Brixier- 
bund (#17): Hard Hat Mack, 
Electronic Arts (#18); Sorcerer, 
Intbcom (#20). 

Education: MastetType, Scarbor- 
ough (#1); Mwiic Construction Set, 
Electronic Arts (#2); KinderComp, 
Spinnaker (#3); Computer Study 
Program for the SAT, Barron's Ed- 
ucational Series (#4); Facemaker, 
Spinnaker (#5); Spellicopter, De- 
signware (#6); M.U.L.E., Elec- 
tronic Arts (#7); Type Attack, Sir- 
ius (#9); Story Machine, Spin- 
naker (#10). 

Home Management: TIte Home 
Accountant, Continental (#1); Vie 
TiLX Advantage, Continental (#4); 
Multiplan. HesWare (#6); Home- 
word, Sierra On-Line (#8); Si- 
mons' BASIC, Commodore (#9); 
Paperclip, Batteries Included 
(#10). 

FURNITURE AND 
STORAGE DEVICES 

In the computer era, the simple 
flat desk has gone the way of 
parchment and quill pens. There 
is now an array of new furniture 




Diskaddy holds up to 22 diskettes. 
READER SERVICE NO. 21 

and storage devices to make maxi- 
mum use of space in a crowded 
world. 

The fijndamental design for ta- 
bletop computer shelves seems to 
be established; Sound Expansion 
has provided two sturdy models 
typical of that design. 



made of solid oak. They are 
deeper than many computer tables 
of this design, mainly for the pur- 
poses of consolidating wires, pow- 
er packs, and expansion boards. 

Sound Expansions, PO Box 53, 
House Springs, MO 63051. 

HoUisCraft's DeskMate features 
a rotating turntable for the moni- 
tor. Also, there is a slot above the 
second shelf to feed lanfold paper. 
The DeskMate is made of pine, 
weighs 15 lbs., and measures 36" 
in width. 13" in height and 12" in 
depth. It retails for $44.95. 

HoUisCraft, PO Box 465, Oak- 
dale. MA 01539. 

Suncom is also getting into the 
act. Their System Station's basic 
unit consists of a desk at typing 
table height on four casters. This 
basic unit sells for $79.00. Option- 
al add-ons include a detachable 
monitor/disk drive stand and a 
printer/paper, diskette, book stor- 
age unit. 

Suncom Inc.. 650 Anthony Trail, 




Both the one-shelf (pictured) and two-shelf Compubenches are solid oak. 
READER SERVICE NO. 22 



Sound Expansions' Compubench 
I has one shelf and measures 7" 
in height, 18" depth, and 19% " in 
width. It retails for $49.95. The 
Compubench II, with two shelves, 
is 12" in height. 18" in depth, 
and 19% " in width and .sells for 
$69.95. Both Compubenches are 



Unit E, Northbrook, IL 60062. 
Although Gusdorf has no new 
prcxlucts of which we're aware, no 
computer furniture piece would be 
complete without a mention of 
them. They've been at it longer 
than most and have a wide array 
of products. 
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HollisCmft's DeskMate features a rotating turntable for the monitor 
READER SERVICE NO. 23 



Gusdorf, 6900 Manchester Ave.. 
St. U)uis, MO 63143. 

Close Enterprises has introduc- 
ed two models of a disk storage 
unit. The Disk-O-Tel Mixlel DT 
(desk top) contains dust-proof 
room for 108 disks and is mount- 
ed on a bail-bearing turntable. 
The high-rise Disk-O-Tcl is the 
same unit except that it is mount- 
ed on a swivel arm. When at- 
tached by clamp to the desk edge, 
the unit sits eight inches above the 
desk surface. The high-rise retails 
for $59.95, the desk top for 
$49.95. 

Close Enterprises, PO Box 
13903, Dept. 40. Arlington, TX 
76013. 

Finally, for the on-the-go (or 
on-thc-run) programmer, MB In- 
ternational has provided the Disk- 
addy. which holds up to 22 5 '4 " 
diskettes. Prices for the Diskaddy 
range from $7.99 to S2I,99. 

MB International, Inc., 701 B 
Street. Suite 1300, San Diego, CA 
92101. 

WATCH THAT NEST EGG 

TOTL. Moneymi/uler is the lat- 
est C-64 release from the chicken 
outfit that brought you the variety 



of home and small business soft- 
ware pictured. This, a complete 
home accounting system, allows 
up to 110 user-defined accounts, 
with double entry transactions that 
can be spread across multiple ex- 
pense accounts. It will record up 
to 8400 transactions a year and 
provide both printed and graphic 
displays of actual v. budgeted ex- 



penses. Other features include a 
built-in database for tracking long- 
term assets and liability records, 
checkbook balancing and state- 
ments, and label file and year-end 
report generation. Price is $39.95. 

TOTL Software, 1555 Third 
Avenue, Walnut Creek, CA 94596. 

LEAVE IT TO BEEPER 

No one is calling it artificial in- 
telligence. That is still the .stuff of 
which pulp novels are made. But 
the relatively new field of knowl- 
edge engineering is at least a baby 
step in that direction. 

In Silicon Valley and across the 
country, knowledge engineers are 
attempting to discover the process 
by which experts in given fields 
make crucial decisions. These rea- 
soning processes are then codified 
and programmed into computers. 
In this way, computers can be 
guided into simulating human in- 
ferential reasoning in specific 
fields of endeavor. A finished pro- 
gram is called an expert system. 
The advances have been made 
possible by the new breed of pow- 




Chicks go craay over home accounting programs like TOTL. Moneyminder. 
READER SERVICE NO. 24 
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35 Great Games to Piay! 

Create 35 amazing games for your 
ConimociorQ64 Simply type the complete 
program listing into your computer and star) 
playing. Games are written in Commodore 64 
BASIC and include color. grapTiics. sound, 
inslructions to players, and scoring. While 
you're having run, you'll learn more atx>ui 
prpgrammrng. Eacti game features 
suggestions (or programming 
vanattons—ctiangett^e games to do exactly 
what you wani Stioot Iheraptds. pilota 
spaceship, race at Le Mans and more! 
Choose Irom Arcade, Board and Educal?onal 
games. Your Commodore 64 has never tDeen 
so mucn fun) 1 20 pages S9.95 paper. 




BASIC 

kx UKCilN.NEKS 



Master Your Commodore 64! 

No experience necessary— this book slaris al 
Ihe beginning. Clear, slraigr^tlorward example 
programs help you understand how programs 
work and how your computer works How to 
use and enjoy essential hardware — including 
cassette-tape storage, disk drive and printer 
You'll learn the basics ol BASIC How to write 
and use loops Build and use arrays Edil and 
improve programs Finding and lixing 
problems- Malh operations, strings, storing 
data on disk OF tape, t-kswio use the printer. 
All aboul exciting leatures like sound, music, 
graphics and color Now you can rea lly 
master your amazing COMMODORE 641 336 
pages. $9,95 paper. 



Purchase HPSooks computer tx>oks at your 
local bookstore or computer outlet Visa & 
Mastercard orders accepted by phone. Calt 
Toll Free 800/526-4923. Or send check or 
money order lor price ol book, plus Sl-95p/h 
loreacli book to address tielow. Allow 4-6 
weeks (or delivery 



Box 5367. 



L4DD/^/^l/■o*' °»p' *hy-74 

I II~DV/V^fV,0 Tucson. AZ 85703 



erful compuicrs which can be pro- 
grammed to solve problems using 
words and symbols, not only 
numbers. 

According to a story by Robert 
Reinhold that appeared in Vii' 
Niw York Timex, knowledge en- 
gineering is currently being used 
to aid in prospecting tor nrincrals, 
analyzing chemicals, conllguring 
coinpulers. and diagnosing diseas- 
es. New fields being pursued are 
military technology, investment 
banking, and genetic engineering. 
Major corporations such as Lock- 
heed and Xerox are setting up 
their own knowledge engineering 
divisions, and knowledge engin- 
eering consulting firms are being 
established in a race for new cli- 
ents. 

Here's how it works. A knowl- 
edge engineer interviews experts 
in a particular field, trying to 
draw from each of them the meth- 
ods by which they reach decisions 
and conclusions. According to the 
story in the Times, the experts 
bristle at first, maintaining that 
their most important decisions are 
based on intuition for the most 
part. However, in most cases, in- 
tuitive decisions are founded on 
reason and can be reduced to a 
series of "if-then" sliitcmenLs. 

From this exhausting process of 
interviews of dozens oi experts, 
hundreds, if not thousands, of "'if- 
then" statements are derived, and 
a matrix of rules and connections 
torming the basis t)f decisions in 
that discipline is created. Since 
each rule or connection will m)t 
carry equal weight, each is given 
a numerical value. The intbrma- 
tii)n is all bound together in what 
is called a set of inference rules- 
defining the relationship between 
the evidence oflered and the con- 
clusions that can be drawn from 
it. Human rea.soning is thus siinu- 
lated when the computer "chains" 
through the rules; either reasoning 



toward a conclusion from given 
tacts or backward from a desired 
result or solution toward condi- 
tions which would bring it aboul 
or evidence that would support, it. 

This "inference engine" \sAp- 
plied to data on a certain ptxiblem 
that the u.ser inputs. Afperr all the 
significant data is made available, 
the engine asks the user what 
questions he would ask to solve 
the problem. The engine then 
goes to work, scanning rules, sift- 
ing facts, and applying one to the 
other. 

The engine, the expert system, 
only otters advice. It is ultimately 
up to the user and the executives 
peering over his shoulder to make 
the final decision. For now, the 
buck still stops here. That is, wc 
think it does. We cant decide. 
The evidence points that way. A 
decision on the matter is pending. 

SPRITE PROGRAM 

SpryteByier provides C-64 users 
with over 60 commands for creat- 
ing and manipulating sprites. You 
can create up to 184 sprites in one 
file and store them on disk or 
tape. Working sprites are dis- 
played in ail four shape mtxles 
(nomial, expanded-x. expanded-y, 
and expanded-xy). Other features 
include movie mode (for anima- 
tion review), data entry mode, 
and Game Maker utility for creat- 
ing BASIC programs from sprite 
definition files. Control is via key- 
board or joystick. The disk-based 
program retails for S34.95. 

Microtechnic Solutions, P.O. 
Box 2940, New Haven. CY 06515 
{phone: 203-389-8383). 

NEW GAMES UPDATE 

Activision. longtime lords of 
dedicated video games, have en- 
tered the C-64 market with two 
new games and four adaptations. 

The Eastern influence is obvi- 
ous in Zenji, which requires the 



Reader Sarvica No. 39 
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player to connect a glowing maze 
of elements (the Many) to a pul- 
sating source (the One) to create a 
single unified green image, or 
Zenji. The puzzle/maze game is 
more difficult than it sounds, 
growing harder with each success- 
ful encounter. 

Toy Bizarre is the latest assem- 
bly line game to roll off the as- 
sembly line. This one places your 
character in a toy factory gone 
berserk, where he must chase 
down escaped toys, turn off hiss- 
ing valves, jump across assembly 
lines, and shun Hefty Hilda dolls. 
Safety checks, coffee breaks, and 
the timeclock add to the need for 
strategy. 

H.E.R.O. seats you in a chopper 
which you must pilot to save min- 
ers trapped inside an active vol- 
cano. \bu can use your laser hel- 
met to bore through granite walls, 
and dynamite charges to blast 
through impassable tunnels. 

Beamrider pits a light warrior 
against enemy starships who have 
placed a shield around his planet. 
He must slice through all 99 lay- 
ers of the sector and reopen the 
route to space. 

The Activision Decathlon allows 
up to four players to compete in 
the ten Olympic events. 

Pitfall, the vine-swinging clas- 
sic, takes Pitfall Harry on a quest 
for jewels through a jungle 
swarming with dangers. 

Price of each of these games is 
$34.95 for disk, $39.95 for car- 
tridge. Coming 64 adaptations in- 
clude River Raid, Space Shuttle: 
A Journey Into Space, and Pitfall 
II: Lost Caverns. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, 
CA 94(M3 (phone: 415-960-{H10). 

Muse has announced Beyond 
Castle Wolfenstein, a sequel to 
the action/adventure game that 
follows a GI on his escape from a 
Nazi prison located in an ancient 



castle. Here, he must infiltrate 
Hitler's Berlin Bunker and a,ssas- 
sinate the fuehrer. The sequel is a 
"stand alone," understandable 
and playable even by those who 
have not seen the original. On 
disk for the C-64; $34.95. 

Muse Software, 347 N. Charles 
Street, Baltimore. MD 21201 
(phone: 301-659-7212). 




READER SERVICE NO. 42 

From Infocom comes a new 
textual adventure titled Seastalker. 
This game has been written in the 
tradition of Jules Verne's 20,000 
Leagues Under the Sea, with the 
gamer in command of the under- 
water ship "Scimitar." Already old 
pros at interactive fiction software, 
the designers at Infocom have 
added a new angle to this game. 
They have designed it with the 
beginner in mind, as it can be 
played by children as young as 
nine. This is the first in a new se- 
ries of games designed for this 
growing market. Another angle to 
Seastalker: it will ask tor. and 
utilize, the gamer's name as the 
hero for the adventure. 

Infocom, Inc., 55 Wheeler St., 
Cambridge, MA 02138 



(617-492-1031). 

From CBS Software comes the 
educational Webster: The Word 
Game. For one or two children 
ages six and up, Webster will help 
children recognize familiar words, 
as well as assist them with spell- 
ing. Multiple skill levels allow the 
children to progress from one-syl- 
lable words to more complex 
terms. Available on cartridge or 
disk for the C-64. 

CBS Software, 1 Fawceu Place, 
Greenwich, CT 06836. 

Not wanting to miss out on the 
Commodore bandwagon, our 
northern cousins have begun issu- 
ing games for the C-64. Inter- 
phase Technologies has announced 
the release of Viking Raider and 
Blockade Runner. 

Blockade Runner has the player 
as the commander of a space ves- 
sel attempting to transport sup- 
plies through enemy lines and as- 
teroid belts to the home planet. 
This point-of-view game features 
multiple levels and fast action. 

Viking Raider is Interphase's bid 
to put a halt to software piracy. 
The game is a diskette/cartridge 
combination: the cartridge simpli- 
fies interface with the computer, 
while the disk allows for substan- 
tial program storage. Thus, with- 
out the cartridge, a copy of the 
disk is useless. Viking Raider is 
an action-adventure game that 
combines graphics and interactive 
text. 

Interphase Technologies, Inc., 
6391-F Westminster Hwy., Rich- 
mond, B.C.. V7C 4V4. Canada, 
(604) 270-8222. 

From the shores of merry En- 
gland comes a pair of new C-64 
games. Bubble Bus Software has 
announced the release of Flying 
Feathers and Bumping Buggies, 
adding to their inventory of games. 
Address is 87 High Street, Kent 
TN9 IRX, England. Phone num- 
ber is 0732-355962. 
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In our May issue we printed a letter from William 
Brauch of Canaan, VT, asking if we know of a 
genealogy program that would enable him to con- 
struct a family tree. Several readers responded to 
our plea for information, one of them being our ovm 
Richard Herring. He told us about Family Tree by 
Genealogy Software, P.O. Box 1151, Port Huron, Ml 
48061 (phone: 519-344-3990). For the VIC or 64, 
the price is $39.95. For the 64 only, Richard in- 
formed us, there is Family Roots from Quinsept, P.O. 
Box 216, Lexington, MA 02173 Price is $185.00 plus 
$3.50 postage and handling. Thanks also to Vernon 
L Wltorl of Lexington Park, MD and Mrs. V. 
Wronski of Boston Bar, B.C 

I just picked up your April issue, and wanted to 
write to commend you on the fine job you're doing. 
Each month you guys get better and better. There 
are a couple of things I'd like to point out: 

1) The article on Easy Script, and its quick refer- 
ence sheet, was excellent; only there's one command 
that Morton Kevelson left out. I only know about it 
because I discovered it by accident. If you type fl 
CONTROL/3 or fl CONTROL/f, the program will 
play a little song for you. 



COMMODORE OWNERS 
WEXL CHECK YOU OUT 



Mi Tetter tm 

It your Commodore 64 th 
DUk Drive, Printer, Memory, 
loyiUck, Noultor and Sound 
Chip operating correctly? 

You may never know 
for sure. Mr. Tetter it a 
complete diagnostic that 
tests: 
1.) Full joystick operation 

in all axis . 
2.) Condnnons or standard 
comprehensive memory 
test. 
3.) CommodoreTll SID chip 
test for sound analysis. 
4.) Screen aligiunenl and 

color tett. 
5.) Complete read/write Disk 

Track and Block Test. 
6.) Diskette iormat analysis to 

check Floppys. 
7.) Complete printer test. 
8.) Complete keyboard test. 
9.) Cassette read/write test. 

All this for only 




order from 

M-W Dlst. Inc. 
1342B Route 23 
Btttlor, N.1. 07405 
201-838-9027 



Readsr Ssrvlce No. 44 



2) My copy of Bug Repellent works fine, except 
that if I print it to the screen, I can't get it to stop, 
and lose the last few line numbers. This means that 
I have to output to the printer every time. Can't 
something be done about this? 

Brad Morris 
Waterloo, lA 

Thanh for the information about Easy Script, 
Brad. As for your problem with the Bug Repellent, 
we can't overemphasize the fact that you must read 
the introduction to each of our programs before typ- 
ing them in! If you 11 refer to the short program in- 
troduction on page (9 of this issue, you'll find the 
solution to your problem. 

I just found Ahoy! on the newsstand, and was hap- 
py to see such an excellent magazine on the market. 

Payment for a one-year subscription is enclosed. 
I'd also like to get all the back issues. How do I go 
about ordering them? 

Stephen Marhofter 
Union, NJ 

See our back issues ad on page 36 Our first issue 
is sold out, but we're offering photocopies of that is- 
sue's programs and feature articles for $4.00. 

I just read the interesting article on spreadsheets 
(May '84) and found it very helpful. As a new com- 
puter owner, I've found that one of the worst areas 
of marketing and information by computer compan- 
ies and the Media is what to do with the blessed 
things. 

In the six months of reading I've done I have 
found nothing really useful to my 64 for around the 
house. Lots of games and some "make work" pro- 
grams. For example, keeping a computer checkbook 
is very possible, but more time-consuming than to 
do it the old-fashioned way on paper. 

Now, my wife is going to open her own business, 
and I'm trying to figure out how we can use the 64 
to help us. I can think of a few applications (mailing 
lists, accounts payable, etc.) but do not ever recall 
seeing an article in any magazines about practical 
applications for a computer in a small business. I 
would like to see one that lists the uses, and tells 
what type of software would be necessary. 

Does a spreadsheet do it all, or do I need a data- 
base as well? The same kind of article would be 
useful for the home as well. 

Richard Peterson 
Bedford, TX 
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By B.W. Behling 



erhaps you recall a T.V. show of a sim- 
ilar name that was popular in the late 
60' s? This is a computerized version of 

that show, with your C-64 playing the 

part of the pane! of experts. It is a game that will 
exercise your mind rather than your joystick hand. 

The game starts by knowing two occupations and 
learns more as you proceed. When the program is 
first run you will be asked if you want to load all 
previous jobs. If this is the first time you are using 
the game, answer "NO" or "N" and continue on; 
we'll come back to this later. 

The next thing you will see is the main board list- 
ing the instructions for the game and asking if you 
are ready to continue. At this point you can list all 
the jobs it knows or you can continue on to the 
game proper. If you type "L" all the jobs it knows 
will be listed. Typing "Y" will call up your first 
question. As the game proceeds it will try to guess 
the occupation you arc thinking of by asking short 
questions that you answer with a "Y" or *'N". If 
the game asks a question that is not a definite "Y" 
or "N" answer you should answer with whatever is 
most correct, i.e.: 

"Do you work mostly outdoors?" For a 
model, answer "N". (Although some 
work outdoors, most work in a studio.) 



After the game has exhausted its supply of ques- 
tions it will make a guess based on the answers you 
have provided. If its guess is correct it will ask for 
another job and start over. If its guess is incorrect it 
will give up and ask for the job you were thinking 
of. Next it will ask you to supply a question to dif- 
ferentiate between its guess and your answer. In the 
beginning you should use broad general questions 
and later move up to more specific questions, i.e.: 

Beginning: 

Computer's guess: FARMER 

Your job: POLICE OFFICER 

Sample question: Do you wear a uniform? 
Later on: 

Computer's guess: DOCTOR 

Your job: NURSE 

Sample question; Do you assist doctors? 

Jobs should be no longer than 19 letters and spac- 
es and questions should be no longer than 38 letters 
and spaces. The program will automatically add the 
appropriate question marks, so these should be left 
off your questions. 

Jobs and questions, once entered, are kept in vari- 
able AS(0-2000) and are saved in file #l"Jobs AS" 
upon command at the end of the game. I would rec- 

Continued on page 23 
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D Twenty-four Issues for $37.95 ($49.95 Canada and elsewhere) 
Name 



Address. 
City 



.State. 



.Zip. 



Send coupon or facsimile to: 

ION INTERNATIONAL INC. 

45 West 34th Street, Room 407, New York, NY 10001 




VC^CJFJOtVTV 




c:M\i -n-/E 



PART II: THE WORLD OF THE GAME 



By Orson Scott Card 

WILL PLAYERS WANT TO STAY IN THE WORLD THAT YOU CREATE 

FOR THEM? THE SCREEN DISPLAY IS A VITAL PART OF ANY 

ACTION GAME THAT TELLS A STORY. 




rcade-style games have a lot of things in 

' common with a movie or a book. One of 

the most important is that games can create 

a world that the player lives in while he's 

playing— and, sometimes, for long afterward. 

You've probably read a book or seen a movie that 
you wished would never end. Tolkien's Lord of the 
Rings affects a lot of people that way— they even 
read the appendix at the end of the book, just so it 
won't be over. Star Trek did it for others— the end- 



less reruns have their audience. Storytellers can cre- 
ate worlds for people that they could never live in 
otherwise. 

And computer games have added a whole new di- 
mension to that. You don't just read about what 
other people did, or watch other people act their 
way through a movie. You actually control one of 
the actors. You can decide what happens next. 

A gocxl game designer can give you experiences 
you won't ever have in the real world. For instance, 
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Joust lets you mount a flying ostrich; you rise into 
flight by making the bird flap its wings, and then 
enter into combat with other mounted enemies. Not 
what you expect to have happen tomorrow morning 
when you finish your Wheaties, is it? 

Even in games that don't give you such a radical- 
ly new experience, living in the milieu of the game 
can be compelling. After playing Lode Runner for 
four hours (and I still only got to level 93), when I 
read a book I found my brain was continuing the 
game. Instead of reading along to the end of a line, 
then skipping left and down to the next one, I found 
that my eyes wanted to dig holes in the line and 
jump down, or climb ladders up the page. It made 
reading difficult, and it also made it clear to me that 
the game experience has staying power in the mind. 




The concept 
o/ Tempest is 
abstract, but 
the gained 
shapes and 
patterns have 
a compelling 
visual rhythm. 



There are many ways a game world can have 
such powerful effects on the players who dwell in 
it. The sheer beauty or realism of a dazzling screen 
display can do it. Novelty helps, too— players are 
obviously more excited when a game shows them 
something they haven't seen before. If the display is 
active, so much the better— the world will feel more 
complete if things are happening. It is not just 
"bells and whistles" when the visual display is ani- 
mated, realistic, complete, even when these elements 
don't pertain directly to the action. 

WHERE DO GREAT DISPLAYS 
COME FROM? 

Stunning screen displays don't come out of no- 
where. There must be a strong concept. Sometimes 
the concept is obvious. In a football simulation, for 
instance, the game itself determines the general out- 
lines of the display. But game designers can use the 
.same basic idea in wildly different ways. 

Sometimes the story of the game suggests the 
shape it should take. The broad outlines of previous 
climbing games gave Donkey Kong its basic shape- 
horizontal surfaces, ladders, obstacles to jump over, 
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But the story of the gorilla that carried off Mario's 
girlfriend and carried her upward into a building un- 
der construction was the idea that made Donkey 
Kong\ display memorable. Steel girders, scaffold- 
ing, oil barrels, elevators, conveyor belts—these 
opened up possibilities for action, obstacles, and 
animation that no other climbing game could match 
at the time. 

Sometimes the concept is abstract, purely visual, 
like the arcade game Tempest, m which the player 
controls a figure that moves around the perimeter of 
shifting geometric shapes, firing downward at the 
center, from which enemy shapes arise in a deadly 
attack. There is no real world situation even remote- 
ly like it. Yet the shapes and patterns have a visual 
rhythm that makes Tempest a compelling game just 
to watch, let alone play. 

Ultimately, memorable displays come out of 
someone's mind. Unimaginative games are created 
by programmers, whose only concern is the creation 
of tight, effective ctxle. There is a beauty in good 
programming, but players don't experience the code 
—they experience the sights, sounds, and actions 
that come from the television set. Good paintings 
come from artists who see beyond the techniques of 
perspective, chiaroscuro, and color, who have a 
clear vision of what the painting ought to be, and 
use their techniques only as a means to that end. 
Likewise, good visual displays in computer games 
come from designers who regard programming tech- 
niques merely as a means to an end, not an end in 
themselves. 

In other words, if you're going to create a really 
memorable game, it won't be enough just to learn 
programming techniques. You have to think of good 
things to do once you've mastered them. In fact, a 
really good game idea can often lead you to solve 
programming problems or develop programming 
techniques that other people have not thought of yet. 

It works both ways, though. As you learn the 
methods of programming, new possibilities occur to 
you. You begin to think, with this technique I can 
do this or that, and a humdrum display suddenly 
lakes on life and power. 

Does it sound mystical and magic? In a way, it 
is. Game programming isn't math or logic, it's art. 
Or rather, it's math and logic used as the tools to 
create art, (And you thought you were just manipu- 
lating loops, branches, variables, and vectors!) 

PRINTING A RANDOM SCREEN 

Many games keep interest alive by setting up a 
new screen every time you play. A randomly gener- 



ated display must be carefully planned, however, so 
that the game is still playable. 

The basic technique is to set up a group of dis- 
play elements, like pieces in a board game. Each 
element will be either a single character or a com- 
plex character stored in a string variable. The larg- 
est piece in our example program will be an ocean 
liner, four characters wide. The other movable 
pieces are a cruiser, two characters wide, and a 
quick little speedboat, which consists of a single 
character. Then we'll have small stationary buoys, 
one character in size, and lighthouses, which consist 
of two characters stacked one atop the other. 

{To demonstrate the methods of setting up a ran- 
dom screen, I could ask you just to imagine the 
shapes. But little groups of letters and numbers 





Joust pro- 
vides a gamer 
with experi- 
ences unlike- 
ly to occur in 
real life. 
READER 
SERVICE 
NO. 25 



moving around the screen aren't very satisfying. So 
I'm including a set of seventeen custom characters 
and the subroutine to set up a custom character set. 
I won't even attempt to explain what's going on, 
and you can leave out these lines— 500 through 510 
and 1000 on. It will save you half the typing in this 
program— but you'll miss most of the fun of the dis- 
play. You must have a line 500, but it can be 500 
REM.) 

FITTING THE DISPLAY TO THE GAME 

Let's keep the game concept simple. The player 
controls a small boat that starts at the bottom of the 
screen. A current is irresistibly moving the boat up 
the screen toward the top. It will drift upward, no 
matter what the player does. However, the player 
can move the boat slowly from side to side. 

As the bt)at drifts up the screen, it must avoid 
various obstacles. There are large and small boats 
docked in the river. There are also lighthouses. A 
collision with a lighthouse is total disaster— the boat 
sinks. A collision with a ship can be a serious prob- 
lem, depending on the ship's size. Collisions with 
the small buoys in the water cost only a few points. 



However, if a ship is colored green, the player's 
boat needs to dock with it in order to exchange car- 
go — there are lots of points for touching each green 
ship, and even more for making it to the top of the 
screen. 

When the boat reaches the top of the screen, it 
starts over again at the bottom— but with a new, 
randomly generated arrangement of ships, lighthouses, 
and buoys. This means that, for the game to work, 
we must come up with a new screen display every 
few minutes. 

In .setting up a program to generate the screen dis- 
play, we have to keep several things in mind: 

1. We don't want to PRINT any ships or lighthouses 
or buoys on top of or touching each other. 

2. We want to have .some random areas of the 
screen blank— a good mix of the different ships fac- 
ing in different directions, lighthouses, buoys, and 
blanks. 

3. We want the screen to look random— things 
shouldn't be lined up in neat rows and columns like 
an orchard. 

4. We want lots of different colors. 

Here is a plan that will enable us to meet these 
requirements: 

Divide the screen into cells. The widest figure, 
the ocean liner, is four characters wide. The tallest 
figure, the lighthouse, is two characters high. In 
order to leave at least one blank space above, below, 
and beside every figure, we'll think of the screen as 
if it were divided into little btixes, or cells, six 
characters wide and three characters high. 

Random numbers. Our routine must randomly 
decide which figure to put in each cell— or whether 
to put a figure in at all. Also, we must have another 
way to randomly decide where within the cell to 
PRINT the figure. With cells six spaces wide, even 
the ocean liners have one space leeway from side to 
side, and the narrowest objects— buoys, lighthouses, 
and speedbt>ats— could be in any of five different 
positions within the cell. We need this random place- 
ment within the cell because if every figure were 
PRINTed at the lefthand edge of its cell, we'd get a 
neat all-in-a-row appearance. Another random rou- 
tine must decide whether to have a ship face left or 
right. And. finally, we must have a random number 
to decide what color the ship should be. (Lighthous- 
es will always be white; buoys will always be black.) 

This means we need to generate four random 
numbers and two index numbers. The index variable 
/ will set the row number- we'll use every third 
row. The index variable J will set the cell number— 
we'll u.se every sixth column to start a cell. We'll 
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generate a random number K to determine if a ceil 
will be blank or, if it is not blank, which figure it 
will contain. We'll use the random number L to set 
the positii)n of the figure within a cell, the random 
number M to choose among five ptjssiblc colors, 
and the random number ^V to choose which direction 
the figure will be facing. 

Set up the building blocks. The figures that we 
put into the cells are like building blocks, which are 
set up in a subroutine executed once, at the begin- 
ning of the program. The three ships are stored in 
the string array SHSf.v.vJ. Each ship will have two 
possible shapes, one for moving left, the other for 
moving right. The first index in the array (the x in- 
dex) will determine which of the three ships is dis- 




Living in the 
milieu of a 
game like 
Lode Runner 
can have last- 
ing effects. 
READER 
SERVICE 
NO. 26 



played; the second index (y) determines which direc- 
tion the ship will face, [f the .( index is 0, the ocean 
liner will be displayed: I is the cruiser, and 2 is the 
speedboat. If the v index is 0, the ship will face 



left: if 1. then right. 



This is done in lines 520 and ,*>30 of the program: 

520 SH$(0,0)="@ABC":SH$(0.1)="DEF 

G":SH$(l,0)="Hr':SH$(l,l)="JK" 

530 SH$(2,0)="L":SH$(2,1)="M":BU$ 

= "N":LH$ = "0"-l-CHR$(17) + CHR$(157)-)-" 
p.. 

GENERATING THE RANDOM DISPLAY 

In the program Random Display on page 86, lines 
640 to 670 contain the screen generating subroutine. 
In addition, lines 700, 710, 720, 730, and 740 each 
contain sub-subroutines to PRINT one of the figures 
within a cell. Let's look at those routines closely 
here. (If you remember last inonth's column, wc 
also use the variable BE to contain the number of 
the last usable line at the bottom edge of the screen, 
and the variable RE to contain the number of the 
last usable column at the right edge of the screen.) 



640 PRINT CHR$(147):FOR 1=0 TO IN 
T(BE/3) :N=INT(RND(9)*2):FOR J=0 T 
INT(RE/6) 
645 M=INT(5*RND(9)) 
650 K=1+INT(RND(9)*10):0N K GOSUB 
700,670,710 ,670 , 720 , 670 , 730 , 670 , 
74 0,670 

660 NEXT:NEXT:RETURN 
670 RETURN 

In line 640, we clear the screen— CHR${ 147)— and 
then begin two nested loops. The outer loop sets the 
variable / to every third line, starting at the top of 
the screen (0) and ending before the bottom line 
(BE). The inner loop sets the variable J to every 
sixth column starting at the left edge of the screen 
(0) and ending before the right edge (RE). Within 
the line Itxip (I), but outside the cell loop (J), we 
generate the random number N. This means that ev- 
ery figure in a given row will face the same direc- 
tion, but that any row can face cither left or right. 

Notice that the nested loops mean that we will 
start at the upper left-hand cell, deal with each cell 
in the top row, and then jump down to the third 
row and do each cell in that row from left to right, 
until we reach the bottom right-hand corner of the 
screen. 

Line 645 sets the variable M to a number between 
and 4. This number will be an index into the col- 
or-assignment array, CL$(.vJ, which has been previ- 
ously set up .so that each element in the array con- 
tains a different color character. When PRINTed, 
each color character causes all other characters 
PRINTed afterward to be the cho.sen color. It's just 
as if you pressed the CTRL-color or ComnnKlore- 
color key combinations. 

Line 650 sets K to a random number from I to 
10. Then the ON statement uses K to jump to one 
of ten subroutine lines. Notice that half the subrou- 
tine lines are 670, and line 670 does nothing except 
RETURN. This means that approximately half the 
time, the ON statement will do nothing— leaving ap- 
proximately half the cells on the screen blank. The 
i)ther five lines lead to subroutines that PRINT one 
of the five possible figures on the screen. This 
means that if any figure is PRINTed in the cell at 
all, il has an equal chance of being any of the five 
figures. 

What if we wanted many more buoys than any 
other figure? We could adjust the chances by replac- 
ing line 650 with these two lines: 

650 K=1+INT(RND(9)*16) 
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655 ON K GOSUB 670,670,670,670,67 
0,670 ,670 ,670 ,730 ,730 , 730 , 730 , 7 10 
,700,7 20,740 

About half the cells will still be blank, but now a 
quarter of the cells will contain buoys, and the other 
four figures will fairly evenly divide the remaining 
fourth of the cells. 

Line 660 closes both loops and, when the whole 
screen is set up, returns from the subroutine. Line 
670 is the empty subroutine that causes a cell to re- 
main blank. 

Here are the five routines that actually PRINT the 
figures in the cells. Each routine ends with a RE- 
TURN statement. 

700 PRINT VP$(I*3)TAB(6*J)CL$(M)S 

H$(0,N) :RETURN 

710 L=0:IF CJ+1)*6<=RE THEN L=INT 

(RND(9)*4) 

715 PRINT VP$(I*3)TAB(6*J+L)CL$(M 

)SH$(1,N) :RETURN 

720 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(9)*5) 

725 PRINT VP$(I*3)TAB(6*J+L)CL$(M 

)SH$(2,N):RETURN 

730 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(9)*5) 

735 PRINT VP$(I*3)TAB(6*J+L)CHR$( 

14A)BU$:RETURN 

740 L=0:IF (J+1)*6<=RE THEN L=INT 

(RND(g)*5) 

745 PRINT VP$(I*3)TAB(6*J+L)CHR$( 

5)LH$:RETURN 

Because there isn't rtx)m within a cell to move the 
ocean liner around, the routine at 700 is the simplest. 
It finds the cell by PRINTing cursor-down character 
contained in the string VP$f.vj— the right row is 
found by multiplying 1*3. Then it TABs in to the 
right column number for the cell J*6. Ii PRlNTs 
the color-CL$(M)— and the ship itself SH$(0,N)— 
with N determining which way the ship is facing. 

Each of the other routines takes two lines. The 
first line of each pair sets L to 0. Only if the cell 
does not extend beyond the right-hand edge of the 
screen is L set to a random number. When the fig- 
ure is PRlNTcd in the next line, the random num- 
ber L is added t<i the TAB number to place the fig- 
ure in its random position within the cell. 

That's all. Each time the subroutine at 640 is 
called, the whole screen is cleared and then set up 
randomly, but according to strict rules that make 
sure the screen display works. 



The rest t)l' the program is pretty well self-explan- 
atory. Line 10 routes the program to the setup rou- 
tines. Lines 100 to 120 call the screen generating 
subroutine, then wait until any key is pressed before 
creating a new .screen. You can keep generating 
new screens by continuing to press any regular key. 
To sH>p the program, press RUN/STOP-RESTORE. 

Lines 600 to 620 set up the vertical movement 
strings (HOME and cursor-down characters) and the 
color array CLSflvJ. 

LAUNCHING THE SHIPS 

The random screen is fine — but those ships shouldn't 
have to stay at anchor all the time. Let's launch 
them, get them moving. 

We'll arrange the screen like this; At the top 
there'll be a row of buoys, lighthouses randomly ar- 
ranged. These won't move. Then there'll be a few 
blank rows in which the ocean liner will sail back 
and forth. Then another row of buoys and lighthous- 
es, then .some rows where the cruiser will move — 
only twice as fast as the ocean liner. More buoys 
and lighthouses, and then a space where the speed- 
boat will zip along twice as fast as the cruiser and 
four times as fast as the tx;can liner. Finally, near 
the bottom of the screen there'll be one la.st row of 
buoys and lighthouses. 

Most of this program. Moving Display, is the 
same as the Random Display program, but to avoid 
confusion, both programs will be printed in full on 
pages 86 and 87. 

The screen is still generated randomly, but now 
the only figures thai will be put on the screen at 
first are buoys and lighthouses, and instead of cells 
six columns wide, the cells will be only two col- 
umns wide. The lines from 640 to 710 are changed 
accordingly. When executed, this routine puts four 
rows of buoys and lighthouses on the screen. 

Another change is in the ship's shapes, which are 
assigned in lines 520 and 530. Now, any ship that 
will move left has a blank space added to the right 
side of the figure, and any ship that will move right 
has a blank space added to the left side. This means 
that as the ships move along, they will automatically 
erase one space behind them— we dtm't have to 
PRINT a blank to erase the ship at its old position. 
This means there'll be no blinking when the ships 
move. 

Since the long ocean liner will reach the right- 
hand edge of the screen sooner than the smaller 
ships, and the cruiser .sooner than the speedboat, 
each of them must have its own right-hand edge 

Continued on page 94 
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THE WORKING 
COMMODORE 64 by 
David Lawrence (Creative Com- 
puting Press, 1984; $9.95). 176 
pages, softbound. 

The Working Commodore 64 is 
a programmer's delight! Nonpro- 
grammers can enter its programs 
for their general utility, but the 
programmer can harvest it for its 
subroutines and programming 
ideas. Beginners may find this 
collection of 20 programs rough 
going. All other skill levels will 
find valuable routines. The book 
is a treasure house of useful tech- 
niques which can be adapted to a 
wide variety of programs. 

All programs are presented in 
modules, many of which can 
stand alone or be transported to 
other programs without change. 
The reader can enter each mod- 
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ule, most of which are short, and 
test it before appending it to other 
routines which comprise the com- 
plete program. 

The author provides a commen- 
tary on each module, relating it to 
the other parts of the program. 
Line-by-line annotations and in- 
structions for testing the module 
complete each subsection. The an- 
notations are full of gems. For 
example, in the "Artist" pro- 
gram, Lawrence demonstrates an 
easy technique for accessing all 
16 of the 64 's colors without hav- 
ing to use the Commodore key. 

Reading a list of the complete 
programs doesn't indicate how 
useful this book is. The complete 
programs include a text editor, a 
drawing routine, a mini-database, 
some educational drills, and some 
accounting programs. Each is a 
meaty, useful program of its type, 
and can be put to work with no 
programming changes. 

The modules within each pro- 
gram, however, can be mixed and 
matched to produce an unlimited 
number of special applications. 
For example, the "Artist" is a 
drawing program. It has four rou- 
tines. The first, "Variables," 
simply sets aside room for initial- 
izing variables. The second, 
"Cursor, Move, Print," is the 
heart of the program, and can be 
used by itself to draw on the 
screen. The third and fourth, 
"Save Design" and "Save 
Screen," perniit the artist to save 
a single design or a whole screen. 

Lawrence covers all ]X)ints. He 
includes routines for business and 
pleasure graphics, music, business 
and home applications, and edu- 
cational software. He offers pro- 
grams for merging, deleting 
blocks of lines, and renumbering 
programs to facilitate using the 
modules to make complete pro- 
grams. 

Program listings are fairly clear 



for dot-matrix reprcxiuctions. The 
book begins with the best key for 
deciphering the graphic symbols 
in Commodore programs that 1 
have seen. All programs save to 
tape, so disk drive owners will 
have to write their own I/O rou- 
tines. 

Almost all the programs use 
memory locations specific to the 
Commodore 64. VIC owners can 
probably use the book, but will 
have to adapt. The programs use 
the Commodore graphic control 
.symbols heavily. They are not 
readily transportable to other ma- 
chines. 

Lawrence says in his preface 
that he wanted to write "a .solid 
collection of programs that would 
be worth having." He succeeded 
very well. At SlO, The Working 
Commodore 64 is an irresistible 
bargain. 

—Annette Hinshaw 
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CHECKLIST 



n 



for the C-64 



By Bob Spirko 

Everyone makes lists. As a hobbyist, shopper, or 
whatever, you often find yourself drawing one up. 
And, at times, that uneasy feeling arises as you won- 
der if you have left something out. 

But there's no more need to worry. Checklist is 
very easy to use, flexible, and safeguarded against 
miss- keying. You will find the screen display neat 
and attractive through the use of extended back- 
ground colour mode. 

As an avid tour cyclist, I wrote Checklist as an aid 
in selecting equipment for any given trip. My equip- 
ment list will vary depending on the trip's length, its 
degree of difficulty, and the weather (not to mention 
whims). Moreover, as I am an ultralight enthusiast, I 
find it of special interest to keep track of my load 
weight. With Checklist, I am able to list all items 
and their weights in any category (clothing, food, 
etc.). Then, category by category, I go through my 
base list and choose the items that I would like to 
take. I may also add any items not on the base list, 
and 1 can make changes in any item (if I want to 
take three pairs of socks, then I adjust the weight ac- 
cordingly). As well. I can code items, so that if I 
have two similar items I can distinguish between the 
two. Also, of course, I can strike an item off my 
list, should 1 change my mind. 

While all this is happening, a record of the total 
weight and category weight is displayed. Once I have 
gone through all the categories, the screen displays 



the categories, subtotals, and total weight. From 
there I may have a list of the selected items dis- 
played, or go back to any category and make chang- 
es, or produce a hard copy of my selections. 

But you need not be a cyclist to make use of 
Checklist. Just select your own DATA. DATA state- 
ments are formatted in the following manner (the 
program includes a few DATA lines for demonstra- 
tion purposes): 

DATA A1$,B1$C1$,D1,B2$C2$,D2,..., 

Bn$Cn$,Dn,0,0 

where Al$ is the category name. Bl$ is the first 
item, CIS is the code and Dl is the weight (if you 
wish to use a different stimdard such as dollars, then 
change lines 33 and 2510). Category and item strings 
may have a length of up to 12 characters. The code 
is a single character and D2 is a four digit number 
(three digits if it contains a decimal). The items for 
a category arc READ until it encounters a 0,0 and 
then it kx>k.s tor a new category nainc. It stops 
READing when it encounters END. You may have 
up to 22 items in a category, as it is limited to 
screen length. But you can have more items under 
the same category by creating another category un- 
der the same name. 

When displayed on the screen, the items are listed 
with an alphabetic label (e.g.. the first item is A) 
and selections or deletions are made by pressing the 
respective key. All selections are accompanied by a 
pleasant tone. Pressing the wrong key results in a 
buzz sound. 

The following explains the use of the keys: 

fi-DEL. This will delete any item that you have 
selected and adjust the weights accordingly. 

f2-CHNG. After you have gone through the cate- 
gories and made your selections, you may wish to 
go back to make changes. After pressing t2. a cate- 
gory list is shown and you will be asked for the 
category. The category listing will appear as you left 
it and you can effect the necessary changes. 

f3-EXTR. When you wish to add another item not 
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on the base list, use this key. You will be asked for 
the name of the item and its weight. It is then coded 
with an X and added to the end of the list. If you 
wish ti) change the code use t"5. 

t4-TOTL. This takes you to the "page" that dis- 
plays the .subtotals and total. 

t"5-NEW. Here you will be asked for the item that 
you wish to change. After this, you can enter its new 
weight and code. If you do not wish to enter a new 
code, press RETURN. It will not accept the item 
that you have already selected. If you wish to change 
such, then simply delete the item, change the weight 
or code, and place it back on your list. 

f6-COPY. This produces a hard copy of your se- 
lections along with all the weights. Each item is 
listed with a check box tor ct)nvenience. 

17- NEXT. Pressing f7 allows you to proceed to the 
next category listing. 

tS-LlST A list of all the items that you chose (up 
to 69 items) is displayed. 

E-END 

Each page will display the keys that can be used 
at that time. If you enter either the DEL. NEW, or 
EXTR modes accidentally, you can escape by press- 
ing RETURN. 

The program lines and principle variables are: 



Lines 115-260: 
Lines 400-480 
Lines 500-560 
Lines 800-820 
Lines 1000-1110: 

Lines IIOO-IIIO: 



Lines 20a)-2010: 
Lines 2100-2110: 
Lines 2500-2590: 
Lines .^000-3090: 
Lines 4000-4170: 

Lines 5000-5099: 

Lines 6(X)0-6t80: 

Lines 7000-7170: 

I$(X.Y): 

G$(X,Y): 

TIS(X.Y): 

TG$(X.Y): 

N(X): 

S(X): 

M: 



Select item 

Check selected item on list 
List items in category 
Print total 

Convert number NO to char- 
acter string with length P 
Convert string to upper case 
(for background colour) 
Beep 
Buzz 

Extra item 
Delete item 

List categories, subtotals, and 
total 

List selected items 
Make changes in any category 
Print hard copy 
Y item in category X 
Weight of item 
Selected item 
Weight of selected item 
Number of items in category X 
Total weight of selected items 
in category X 
Number of categories 
SEE PROGRAM LISTING ON PAGE 88 
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By Joycelyn Woods 



Hrior to 1983. the Year of the Computer, 
owners of personal computers tended to be 
hobbyists, engineers, or individuals with 
some knowledge of programming. Such us- 
ers didn't mind tinkering, especially since micrwom- 
puting was Itxiked upon as a hobby. 

But thanks to the VIC 20 and C-64, practically 
everyone can own a computer today. And the newer 
users are more likely to look upon their micros as 
appliances— their main interest being, what can their 
computers do for them? But to the newly initiated, 
even the most user-friendly system can appear 
ominous. 

Today's users are finding, just as yesterday's did, 
that the best place to obtain information is from one 
another; and that the most convenient forum for this 
exchange of information is a users group. Five years 
ago. most users groups were generalized: it didn't 
matter what brand of computer you owned, or what 
your interests were. Such groups still exist in remote 
areas, but most of the earlier groups have grown so 
large that they've broken up into sub-groups of com- 
puter brand or specific interest. 

One thing hasn't changed: because of the lack of 
user support, a users group is still the best way to 
learn more about your computer. 



WHY A USERS GROUP? 

To illustrate by example some of the benefits of 
belonging to a users group, I'll run down some of 
the activities of my own — the New York City VIC 
20/C-64 User Group (NYCUG). It started about two 
years ago, when 10 or 15 people began meeting as 
the Commodore sub-group of the New York Ama- 
teur Computer Club ("nYACC). 

With the rise of the C-64. our group grew quickly 
—and so did our enthusiasm. We began inviting 
companies to give demonstrations. The Alien Group 
delighted us with their singing Voice Box. Micro 
Ware came up from New Jersey and demonstrated 
the Connection interface, along with the rest of their 
line. 

Most users groups, of course, are not located in 
areas like New York City, with a number of hard- 
ware/software manufacturers nearby. But the fact is 
that the demonstrations by our own members have 
proved even more interesting. Our resident artist, 
who had done the sample demos that come with the 
Doodle graphics package, amazed us with his work 
one evening. Our Sysop brought his local bulletin 
board down so that members without modems could 
see what telecommunications was like, and what 
they were missing! We've had lectures on FORTH. 
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beginning machine language, simple BASIC arrays 
and loops. One member even brought in his disk 
drive which had burned up that week so that we 
could take it apart and look inside. We've had dem- 
onstrations of word processors, databases, terminal 
programs, and spreadsheets. Recently, someone sug- 
gested that we begin collecting public domain soft- 
ware; we now have a librarian working on it. 

When the CP/M cartridge was introduced, several 
members who'd purcha.sed it came to meetings com- 
plaining about the lack of software to support it. 
This initialed our first big project, which has been to 
create a public domain CP/M library of over 100 
disks from the New York Amateur Computer Club's 
CP/M library. (Those interested in purchasing disks 
should write to Commodore CPM/NYCUG. c/o 
Amateur Computer Club, P.O. Box 106, Church 
Street Station, New York, NY KKK)8.) 

But by far the most valuable benefit of a users 
group is the friendships it creates. In every meeting 
of every group I've attended, I've found the mem- 
bers helpful, even selfless in solving a problem Ibr 



someone. 

I hope you now have some idea of what you're 
missing if you've never belonged to a users group. 
Your next step is clear: get into one. 

FINDING A USERS GROUP 

Finding a local users group may require some re- 
sourcefulness. Since most groups require a meeting 
place larger than a member's living rmim, you could 
contact schools and community centers in your area 
to inquire. Quite often, users groups will meet at a 
computer store, or the salesman may know of groups 
in the area. 

Cotnmodore publishes a list of users groups in 
their magazines, Power/Play and Commodore: Ttie 
Microcomputer Magazine. I f you or a friend own a 
modem, you can access the user group directory in 
the CommtKlore Network through CompuServe. (The 
Network's 1000-1- pages also include a bulletin board 
tor each Commodore computer, a conferencing area, 
a hotline tor questions, articles from the Commodore 
publications, tips, an extensive database tor down- 
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1555 Third Avenue 
Walnut Creek, CA 94596 
415/943-7877 



Other VIC 20'" _ 

and Commodore 64'" software 
availal}le from your dealer or 
directly from TOTL Software: 

Word Processing (totHext) 
Spelling Checker (lotl. speller) 
Mailing List & Label {totl. label) 
Business Accounting (totl .business) 
Time Management 

(totl time manager) 
Keyword Cross Reference 

(researcfi assistant) 

TOTL Offers You... 

low prices and high quality • 30 day 
money-back guarantee on direct 
purchases • an interactive family of 
software • product registration • 
customer support • free informative 
newsletter • regular upgrades at 
reduced cost • availability in many 
stores • 800 numbers for ordering 
convenience • prompt shipment of 
direct orders • savings coupons with 
each order • money-saving bonus 
paks • two years and 45,000 
products strong 
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loading programs, and listings of Commodore deal- 
ers.) Log onto CompuServe in the usual way, then at 
any 1 prompt type GO CBM 248 and hit RETURN. 
This will place you at the users group directory. 

NATIONAL GROUPS 

If you have no group in your area, you could join 
one of the larger national groups— sacrificing, of 
course, the important interchange of ideas. 

The Toronto Pet Users Group is one of the oldest 
and largest national organizations, boasting over 
14.000 members (11,000 of them outside the Toronto 
area). An associate membership for someone not in 
the Toronto area costs $20.00; if 15 or more join, 
the price drops to $15.00 per person. This includes 
10 issues of TPUG Magazine and access to their 
library of over 200 disks. A disk of programs which 
goes with the magazine can be purchased tor $10.00 
per month; or, if you join with a group of 25 mem- 
bers or more, you can get one free. {40-member 
groups get two monthly disks free, and so on, up to 
a maximum of six disks for a gaiup of 240 mem- 
bers.) 

TPUG maintains an extensive list of users groups, 
some as far away as New Zealand, that is updated 
weekly. In the Toronto area, the group holds several 
meetings each month and offers lectures and confer- 
ences for members. Address is 381 Lawrence Avenue 
West. Toronto, Ontario. Canada M5M 1B9. 

The Commodore Club has been in existence for 
slightly over one year. The cost to join is $10.00, 
which includes a monthly newsletter with tips and 
short articles, and discounts on Commodore prtxlucts. 
Their address is 1200 Wilson Drive. West Chester, 
PA 19380. 

STARTING A USERS GROUP 

If you can"t fmd a local group but want the per- 
sonal interaction that a national organization can't 
provide, you'll have to start your own users group. It 
can be as simple as five or six people meeting once 
a month to exchange ideas. (But chances are it will 
grow, so be prepared.) Starting up requires some 
work—you'll need a few people to help out. Begin 
by selecting a temporary president and secretary to 
serve until all the officers can be elected. Next, 
select a name. Ifs best to use one that identifies 
you. You could include Users Group (UG) or Inter- 
est Group (IG) at the end; if you use a computer 
name, it must be the trademarkcd name. 

A constitution and bylaws should be drafted. It's 
best to keep these simple. You can get a btKik on 
drafting a constitution for small organizations at the 



public library. The stated purpose of the organization 
(Article II) should be "to promote computer educa- 
tion for the Commodore computers." Once the con- 
stitution is drawn up. you can elect your officers and 
vote to accept the constitution and bylaws. 

You are now a users group. So that othere in your 
area can find you, send your group's name, address, 
contact person, and telephone number to Ahoy! so 
the information can be published in this column. 
You can send the same information to the Commo- 
dore Club and TPUG, as well as to many of the 
other computer magazines. Don't neglect to post 
messages locally, at supermarkets, schools, etc. 

As your group membership grows, you can tackle 
projects like setting up a bulletin board, or putting 
together a library of public domain software. (Re- 
member: using copyrighted software for your library 
is against the law.) 

In selected future issues of Ahoy!, a listing of us- 
ers groups will appear. Ahoy! has realized from the 
beginning the valuable service that users groups can 
provide for the Commtxlore community, and will 
continue to provide information of specific interest to 
users groups in this column. If your group has done 
anything notcwtiilhy. tell us about it so we can publi- 
cize it in a future installment. C 

Cuixiinucd from page II 

ommcnd that you use a separate tape for this file, as 

it will make saving and loading it that much easier. 

To save your job file you should type "N" when 
asked if you are ready and then insert the tape you 
are using for that purp<.)se, type "Y" and then '"*" 
and press record and play on your Datasette. (Disk 
drive owners: although written for tape use, the pro- 
gram may be easily adapted to disk use. See your 
users guide for details.) 

Loading in the job file is a simple reversal of the 
above procedure, involving following the instruc- 
tions given when you type "Y" to the question: 
"Do you want to enter all previous jobs?" at the 
start of the game. One last note before I go: when 
new jobs are to be saved in the tape file, you 
should record directly over the old file to avoid er- 
rors. The old jobs will be saved again along with 
the new entries. 

There you have it. Keep reading Ahoy! for more 
valuable programs — such as one I'll be providing in 
an upcoming issue that will turn your monitor into 
an aquarium! D 

SEE PROGRAM LISTING 0\ PAGE 70 
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Prentice-Hall speaks 

a Commodore langnage other 

publishers have forgotten. 

English. 




USING THE COMMODORE 64 IN THE HOME 

by Hank Librach and Wilfiam BehrentJt Home of Ihe 
future! Tvweniy original programs for check book keep- 
ing, liijari: payments, tsmily nuiniFon. education, 
games, and much more Book 'disk available $10 95 




COMMODORE «4/ViC 20 BASIC by Richard 
Haskell and Thomas Wmdeknecht A lop-down pro- 
gramming guide. corTtplete wiih examples illustrated 
by video screen photos, that inTroduces the beginner 
and advanced user alike to Ihe concepts— and actual 
wn1l^^g—otp{ogfams in BASIC S1395 




MUSIC AND SOUND FOR THE COMMODORE 

M by Bill L. Behrendl. How to jse the Commodore 
64 s Sound Interface Device and how to write 
prograrr^s that match the sounds o1 various band 
instruments. $14.95 




EASY INTERFACINO PROJECTS FOR THE 
ViC<20 by James Downey, Don Rindsberg. and 
WiHiam ^Sherwood Dozens ot interlacing projects 
wntten m BASIC and speciftcally designed to maxi- 
mize the VIC-20S power S12 95 




SPRITE GRAPHICS FOR THE COMMODORE 

S4 by Sally Greenwood Larsen Shows how lo pro- 
duce high resolution, color, animated graphics. 
Tweniy-ffve ready-to-run sample programs Sts 95 




INTRODUCING COMMODORE 64 MACHINE 
CODE by Ian Sinclair This cleat step-by-stepintroto 
programming m machine language also mdudes 
sophisticated applications m fast movrng graphics 
and games. St 2 95 



PRENTICE-HALL BOOKWARE /THE LEADER IN COMPUTER PUBLISHING 

For more intormacton about our computer Kioks and software, write to us at the address below. Dealer inquiries welcome. 

Prentice-Hall. General Publishing DivLiion, Englcwood Cliffs, N.J. 07632 

* We guaranlee (hat all our guides aie easy lo read and simple lo appty wilhoul IDs aid ol a mieience library, a compuler salesperson, or a niece who |ust graduated Irom M.I.T. 

Reader Service No. 40 
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By Larry Bihlmeyer 

Database programs are perhaps the most 
misunderstood software programs. And 
they are probably the most powerful and 
__: I useful. 



Perhaps if they were called something else, like 
electronic file cabinets, they might be less feared. 
But while "database" and "database management" 
are terms common to large businesses, they also ap- 
ply to home and small business use. And that's why 
we prepared this survey— to help you learn more 
about what databases do and which ones are avail- 
able for the Commodore 64 and VIC 20. 

First, let's look in simple terms at what a database 
program is and what it can do. A typical program is 
made up of records and fields. An easy way to see 
this is to think of a record as a 3x5 card. If we then 
draw eight lines on the card to write down informa- 
tion, we have created eight fields on our 3x5 card 
(one record). 

All a database program does, basically, is allow 
you to create records and fields for each record. 
Then, by using the speed of a computer, many oper- 
ations can be made on the stored data, such as sort- 
ing and searching for important words or numbers. 

Once you've stored your infonnation in your data- 
base program (3x5 file card box), you can print out 
what you've saved in many ways. You can print 
mailing labels, inventory records with cost informa- 
tion, sport league scores and dates, club membership 
records, and on and on. The uses for a good data- 
base program are endless. And the more you use 
one, the more uses will develop. 

So what databases are available tor the VIC and 
C-64? What do you get for different cost software 
(and firmware)? Which programs support the RS-232 
port? 

When you're shopping for a database program, 
make a list of the uses you need it tor. When you've 
finished your shopping list, compare it with the fea- 
tures included in Table 1. Table 2 provides the man- 
ufacturers of these programs. 

Database programs basically fall into three price 
gaiupings: $15-50, $50-90, $90-150. In general, the 



more you pay, the more features you'll gain. But as 
usual, there may be a limit to what you need. Per- 
haps just a basic database without many frills will 
be all you need. Just be sure to plan ahead. It's bet- 
ter to buy a program with extra features if you plan 
to expand your uses or utilize the program for a 
small business application. 

The programs in the $15-50 price range contain 
the basic databa.se functions. Many are mailing list 
programs which can also store other data. For ex- 
ample. Mail Now ($39.95 for the C-64) allows you 
to enter seven fields or pieces of information for 
each record. A typical record would consist of last 
name, t"irst name, city, state, and zip code. Then, 
you can have two other fields (Category and Re- 
marks) to store other information such as birthday, 
customer account number, or golf score. So besides 
providing a mail li.st. this program also allows you 
to keep track of other useful data. 

Another low cost database is Data Manager I 
($24.95) which allows you to create records 30 
characters wide by 8 lines deep. Each line then be- 
comes a field. With this format, it is very easy to 
take your data and put it into a well-organized for- 
mat for storage and later printing. This particular 
program uses pointers and indexes to allow you to 
sort for pieces of information. And if you store 
numbers, you can also add fields, calculate averages 
and standard deviations, and do a frequency chart. 

A third low cost database is Info-Manager 
($39.95) which allows you to set up large records 
(up to 630 characters) and establish up to 18 fields, 
each with up to 35 characters. The directions with 
this program are easy to follow, showing you how 
to set up a record like an index card, with 18 lines 
maximum, each with 35 characters. Menus help 
along the way to set up records, make changes, per- 
form disk operations, and print. 

Moving up to the next category, the $50-90 group, 
we find a good example in Flex File ($60.00). It 
consists of a database program, report writer pro- 
gram, and mailing list program: three in one. The 
database part is very complete, with up to 20 fields 
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possible and 5 levels of search per field. 

You also get complete math functions and logic 
sorting capabilities. There are menus to help you as 
you work the program and these direct you to the 
rcpt>rt writer and mail list. The report writer is like 
a mini-word processor and allows you to use the 
data you stored in many different types of reports 
and letters. The mail list program is primarily a 
working sample of what you can do with the overall 
package. 

Another program in this second group is Mini Jini 
(S89.95). This comes as a cartridge (firmware) 
which plugs into the user ptirt. When you turn on 
your computer, it instantly turns into a database pro- 
gram. You can set up 10 fields for one record, with 
each field containing up to 75 characters. Other fea- 
tures include alphabetizing a file, searching a file, 
fixing up a file, doing custom printouts, and disk 
utilities. And more— it contains a "mathpack" 
which allows you to add, subtract, multiply, or di- 
vide two fields or a field and a constant. This obvi- 
ously gives you a great deal of ficxibility in hand- 
ling your data. 

The third category of programs fails into the $90- 
$150 price range. Superbuse 64 (.S99.00) is a gcxnl 
example. This program is a database management 
and information retrieval system with a user pro- 
grammable interface. You can define indexed files 



HEADING DEFINITIONS FOR TABLE 1 



Now make your '64' TALK 
...in your own voice! 







"Parlez-vous 
Francais?" 



: "Sorry : 

: Charlie, : 

1 you * 

: lose" : 

The amazing new VOICE MASTER is ideal for learning, for 
games, you name it! Add sound effects to your own games. 
Teach your children to 'speak & spell'. Learn a foreign language 
yourself. VOICE MASTER digitally records your spoken or 
singing voice, musical instrument, or any sound. Utterly 
fascinating, with unlimited capability -anything you create 
can be stored. Special low price includes mike, 2000 byte 
assembly language program and easy instructions with ex- 
amples. Order right away — only $89.95. Don't delay 

Order toll free 1-800-662-5021 

IN ILLINOIS. CALL 1 •312-64!-6e7t 
or write INDUS-TOOL. 325 W. HURON. Depl. 000, CHICAGO IL 606t0 

Send Voice fUlasters @ $89.95 each 

Enclosed is $ or charge on D MasterCard U Visa 

Card No. ^ expires 



Cily, Snu, Zip _ 
Phooe 



R«ad«r Sarvict Ho. 41 



26 AHOY! 



Tape / Disk / Cartridge 
Record Size (Max) 



Number of Fields 
(Max) 



Field Size (Max) 
Number of Keys 

Sort Level 
Math Functiort 



Printing 



Logic Sort 
Disit Utility 



Color 



Indicates whether the product 
comes as a cassette tape, floppy 
disk, or cartridge. 
Shows the maximum size in 
characters that any one record 
can be. If a number isn't shown, 
then the record size is variable. 
Indicates the maximum size in 
characters that a field can be. 
With some programs, (he record 
and field sizes are interrelated, 
so a variable field size can re- 
sult. 

Indicates the maximum size in 
characters a field can set up. 
Sometimes, this is interrelated 
with the record size and a vari- 
able size can result. 
A key is a specific way of label- 
ing a field so it can later be 
sorted, searched, and operated 
on. This column will show the 
maximum number of keys you 
can name for that program. 
Shows the number of levels you 
can sort and search one specific 
field. 

If marked "yes," then the pro- 
gram can perform math func- 
tions on fields, such as addition, 
subtraction, multiplication, and 
division. Check with each manu- 
facturer for specific details, since 
not all programs checked "yes" 
can do all math functions. 
Serial: Printout to the serial port 
(device #4) is supported. 
RS-232: Printout to the RS-232 
port (device #2) is supported, 
Std: Only standard formats are 
available. 

Gust: Custom printouts can be 
made. 

Indicates if the program will sort 
data using logic criteria. 
If marked "yes", the program will 
allow you to bo certain disk utili- 
ties while the program is loaded 
into your computer, such as for- 
matting a disk, getting a direc- 
tory, and finding a file. 
Indicates if the program makes 
use of the Commodore color ca- 
pabilities. 



of rccord.s to suit your needs, recall records quickly 
with simple or complex search requirements, and 
process files or sets of records in several different 
ways. 

The number of records on a disk is only limited 
by the amount of free disk space available. The user 
can have up to 127 different fields for any one data- 
base, with up to 255 characters per field. Maximum 
record size is 1 108 characters, which can cover up 
to 4 screens of display. Finally, you can have up to 



TABLE 1: SUMMARY OF VIC 20/COMMODORE 64 DATABASES 



Product 



Num- 
Hec- ber 

Old o1 Field No. Printing 

Formal Size lields Size ol sort matli RS- logic disk 

VIC 64 Tape DisK Cart Price (nia») (nia«| (nia«) Iteys level hi. serial 232 std cust sort util color 



Common Is 



Inquire Pac 


X 




X 


69.95 


200 


15 


250 


VAR 


VAR 


N 


Y 


N 


Y 


Y 


Y 


¥ 


Y 




Dala Base 
Manager 


X 




X 
X 


B9.9S 

S9.95 


140 


18 


24 
20 


18 
9 


2 

I 


Y 


Y 


N 


Y 


Y 


Y 


N 


Y 


VIC requires BK expansion 


Database Manager 


X 




X 


99.95 


2000 


200 


250 


250 


1 


V 


Y 


N 


¥ 


Y 


Y 


Y 


Y 




Data Manager 1 


X 


X 


X 


Z4.95 


240 


e 


30 


VAR 


VAR 


y 


Y 


N 


Y 


V 


Y 


Y 


N 


e 


Oatalog 


X 




X 


39.50 


220 


12 


55 


12 


VAR 


Y 


Y 


N 


Y 


Y 


Y 


V 


Y 




Oaiman 


X 




X 


59.95 


255 


19 


78 


19 


19 


N 


V 


N 


Y 


Y 


Y 


Y 


N 




Oelptii's Oracle 


X 




X 


125.00 


8000 


99 


70OO 


t 99 


10 


Y 


Y 


Y 


Y 


¥ 


Y 


Y 


Y 




Filing Assistant 


X 




X 


)25.(» 


256 


25 


35 


10 


2 


Y 


Y 


Y 


Y 


¥ 


Y 


Y 


Y 




FlBJt File 


X 




X 


60.00 


254 


20 


79 


20a 


5 


Y 


Y 


Y 


¥ 


Y 


¥ 


Y 


Y 




Info-Manager 


X 


X 


X 


39.95 


630 


18 


35 


IB 


1 


N 


Y 


N 


¥ 


Y 


¥ 


Y 


Y 




inventory 


X X 


X 




20,00 


d 


B 


d 


2 


1 


N 


Y 


c 


¥ 


N 


N 


N 


N 




Insta-Flla 
b 


X 




X 


61.95 
b 


1550 


62 


25 


VAR 


1 


Y 


Y 


N 


Y 


Y 


Y 


¥ 


Y 


Requires Insta-Writor 
(SS(.95) 


MTilB 


X 


X 


X 


95.00 


250 


32 


• 


« 


# 


Y 


Y 


H 


Y 


Y 


Y 


# 


* 


Tape has fewer features 


Magpie 


X 






X 99.95 


VAR 


VAR 


VAR 


VAR 


VAR 


Y 


¥ 


N 


Y 


Y 


Y 


Y 


Y 




Mail Now 


X 




X 


39.95 


d 


7 


d 


# 


1 


N 


Y 


N 


Y 


Y 


N 


N 


N 


Preformatled for mail list 
data 


Mall Pro 


X 




X 


129.95 


254 


22 


99 


VAR 


VAR 


N 


Y 


Y 


Y 


Y 


Y 


Y 


¥ 


Fields preformafted for mail 
list data 


Mini JinI 


X 

X 






K 89.95 

X 


350 

750 


10 

to 


35 
75 





1 


Y 


¥ 


tM 


Y 


¥ 


Y 


Y 


¥ 




Omnilile 


X 

X 


X 
X 


X 
X 


15.95 
19.95 


VAR 


VAR 


256 


VAR 


VAR 


Y 


Y 


X 


Y 


Y 


¥ 


N 


Y 


Requires 8K for VIC 


Powerlite 


X 




X 


39.95 


254 


20 


79 


20 


5 


Y 


y 


Y 


¥ 


Y 


V 


Y 


¥ 





Rabbit Base 



vari- 100 255 1 
able 



Requires 16K RAM card 
lor VIC 



Record Keeper 



Research 
Assistant 



99S5 254 80 254 aO 20 



30.00 
35O0 



VAR VAR VAR 12 



Field names prelormatled 
fi3r research dala 



SDB-64 




X 




X 


39.95 VAR 


VAR 


VAR 


10 


1 


N 


Y 


Y 


¥ 


Y 


Y 


n 


N 




Simplifile 


X 


X 


K 


X 


19.95 VAR 


VAR 


VAR 








N 


Y 


Yc 


Y 


N 


N 


N 


¥ 




Superbase 64 


99.00 1108 


127 


255 


VAR 


VAR 


Y 


¥ 


Y 


Y 


Y 


Y 


¥ 


¥ 




T0TL. Infomasier 




X 




X 


50.00 2500 


10 


245 


VAR 


VAR 


Y 


Y 


Y 


¥ 


Y 


Y 


¥ 


Y 




TOTL, Label 


X 


X 


X 
X 


X 
X 


20.00 25^ 
20.00 ^'^ 


VAR 


VAR 








N 


Y 


Y 


Y 


¥ 


N 


N 


¥ 


Fields Preformatted lor 
label data 


Your Filing System 


X 


X 


X 


X 


49,95 20.- 
000 


255 


80 








N 


¥ 


N 


Y 


¥ 


¥ 


N 


¥ 


Requires 8K VIC expansion 



NOTES: 

# Information not available 

VAR Variable value: conlacl mantitacturer for (unher details. 

a Up (0 3 recommended for fast sorting 

b Requires Insia-Writer firmware ($51,95(. Also available as part of "Management Combo" package at S99.95. 

c "BASIC" program listing can be modified lo support printout to Device #2. 

d Preformatted record/field sizes— maximum not specified. 

e Data Manager II— $49.95, Also available- entianced program. 



15 files per database or one large database. Four 
menus control program operation in the normal 
mode. Superbase 64 also has file ID and password 
protection as well as two other modes of operation 
—command mode and programming mode. 

Another program in this price range is Delphi's 
Orach' (SI 25), This program allows you to set up 
large records (up to 8000 characters) and large 
fields (up to 99 characters and 9 display pages deep). 
This obviously is a good program for small business 



use and has many features common with higher cost 
business software. It contains the ability to do math 
functions on the stored data and complex logic sort- 
ing. And you can design your own forms on the 
screen and for printouts. 

By now, you can begin to see how the features 
expand as the cost of the programs increase. When 
you are shopping, try to narrow your choices down 
to two or three based on your list of needs. Then 
contact each manufacturer or local dealer for the lat- 
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TABLE 2: 



MANUFACTURERS LISTItJG 



Product 



Company Address 



Creat-A-Base 
Inquire Pac 
Data Base Manager 
Database Manager 



Data Manager I 
Data Manager II 



Datalog 



Datman 



Delphi's Oracle 



Filing Assistant 



Flex File 



Info-Manager 



Inventory 



Insta-File 
(Management 
Combo) 

M'File 



Computer Center 
9621 "D" Oates Dr, 
Sacramento, CA 95827 

Pacific Coast Software 
3220 S. Brea Canyon Rd. 
Diamond Bar, CA 91765 

MicroSpec 

2905 Ports O'Call Court 

Piano, TX 75075 

Mirage Concepts, Inc. 
2519 W. Shaw 
Suite 106 
Fresno, CA 93711 

Timeworks, Inc. 
405 Lake Cook Rd. 
Building A 
Deerfield. IL 60015 

Midwest Software 

Box 214 

Farmington, Ml 48024 

Software Consultants 

4455 Draper St. 

Salt Lake City. UT 84111 

Batteries Included 
186 Queen St. West 
Toronto, Ontario 
Canada M5V 1Z1 

Rainbow Computer Corp. 
490 Lancaster Avenue 
Frazer, PA 19355 

Webber Software 

Box 9 

Soutfieastern, PA 19399 

Pyramid Software International 

30 Fairfax 

Suite A 

San Rafael, CA 94901 

William Robbins 

Box 3745 

San Rafael, CA 94912 

Cimarron 

2158 Hatfiaway St. 

Santa Ana, CA 92705 

SJB Distributors 



Product 



Magpie Simplifile 



Mail Now 



Mail Pro 



Mini Jini 



Omnifile 



Powerfile 



Pro-File 



RabbitBase 



Record Keeper 



Research Assistant 
Totl. Label 
Totl. Infomaster 

SDB-64 



Superbase 64 



Your Filing System 



Company Address 



10520 Piano Rd. 
Suite 206 
Dallas, TX 75238 

UMI, Inc. 

3503-C Temple Avenue 

Pomona, CA 91768 

Cardco Inc. 
313 Mathewson 
Wichita, KS 67214 

Pro-Line Software 

755 The Queensway East, Unit 8 

Mjssissauga, Ontario 

Canada L4Y 4C5 

Jini Micro Systems. Inc. 

Box 274 

Riverdale, NY 10463 

Software To Go 

1948 Oak Ridge Turnpike 

Oak Ridge, TN 37830 

City Software 

735 West Wisconsin Avenue 

Milwaukee, Wl 53233 

A-1 Services 

7103 W. Clearwater H-228 

Kennewick, WA 99336 

Computer Software Associates 
50 Teed Drive 
Randolph, MA 02368 

Southern Solutions 

Box P 

McKinney, TX 75069 

TDTL Software 
1555 Third Avenue 
Walnut Creek, CA 94956 

Simpleware 

129 Wildbriar Road 

Rochester, NY 14623 

Precision Software (USA), Inc. 

Suite 1100 

820 Second Avenue 

New York, NY 10017 

Microtechnic Solutions, Inc. 
Box 2940 

New Haven, CT 06515 



est information and to make sure it will work on 
your .sy.stem. Double check to make sure it will 
work with your printer aod primer interlace. 

A gotxi selection will be tun to use and will make 
you want to find more uses for it. As funny as it 
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sounds, it'll take on its own personality. And that 
should match yours or you'll be inhibited by it. 

So have fun shopping for that database program. 
It could become the most important piece of soft- 
ware that you own. 








FOR THE C-64 



By Anthony Wood 

I ften while programming, the need arises 
to insert a line between two lines that 
have no room between them. In cases 
like this it would be helpful to renumber 



the entire program. Other times, when you've fin- 
ished a program, it would be nice to renumber the 
program so it looks neat. The renumber utility does 
this for you. 

The renumber program will renumber an entire 
program while changing GOTO. IF-THEN. GOSUB, 
ON GOTO, and ON GOSUB references to the cor- 
rect values. 



When you run the program, you are asked for the 
name of the program to renumber. Enter the name 
you saved your program under. Next, you are asked 
for the name of the renumbered program. As the re- 
number utility renumbers your program, it will be 
.saved under this file name. Next, you are asked 
what you want the first line in the renumbered pro- 
gram to be. After you enter this, you are prompted 
for the increment between lines. Once you have an- 
swered these questions, the renumber utility proceeds 
to renumber your program. 

SEE PROGRAM LISTING ON PAGE 93 
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COMMODORE64* 



No matter v/hich direction you wish to trovel in, experience 
the odvontoge of computer communicorions with The 
SMART 64 Terminol. Discover the progrom that purs you 
on the Right Rood ro: Public-Access Networks. Universit/ 
Systems, Private Company Computers ond Finoncloi Services. 

The 5AAART 64 Terminal designed with Quolir/-Bred features, 
Affordable Pricing . . .And Service. 

So why not rrovei the communicotions highways the SMART woy! 
Accessories included: 




□ Selective Storage of Received 
Data. 

□ Alarm Timer. 

□ 40 or 30 Col. Operation*. 
n Aura-Dial. 



□ Formatted Lines. 

□ Review. Rearrange. Print Files- 

□ Sendi/Receives Programs ond 
Files of ANY SIZE. 



□ User-Defined Funaion Keys. 
Screen Colors. Printer ond 
Modem Setting. 

n Screen Ptinr. 
_ n Dish Wedge Duilt-ln! 

□ Adjustable transmit/receive tables allow custom requirements. These ond other Matures nKike The SMART 64 Terminol 
the best choice for grand touring telecommunicatior\s. ,^^^. ._ .b^k 

I^HMICROTECHIMIC 

"Commodore 64 regisrefed rrodema* 

o* CommodOfe OuimessAtochmes Inc 
■kjpporfs 80<olumn conridge 

bv Doro 20CofpofQ!ion 



Dealer Avoilabiliiy 
Call (203) 389-6383 



^^SOLUTIOMS: 

P.O. BOX 2940. NliW \ lAVBN. CONN. 06515 



Reader Service No. 34 
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WE LOVE COMMODORE 

and 

We Love Our Customers 

That's why we only sell and support Commodore 64 and Vic 20 
computers!! We have • the best prices • over 1000 programs • 500 
accessories • absolutely the best service • one day express mail 
delivery • immediate replacement warranty • 15 day free trial • pro- 
gramming knowledge • technical knowledge • we are the only one 
in the U.S.A. with complete support for Commodore 64 and Vic 20 
computers!! 



PROTECTO ENTERPRIZES BoxSSO.Bamngton.lL 60010 

SEND IN THIS COUPON TOD A Y FOR A FREE 64-PAGE 
"EXCLUSIVE COMMODORE-64 AND VIC-20 CATALOG" — PLUS OUR SPECIAL 

"BUY MORE—SA VE MORE COUPON" 



(Save up to $500 on software and accessories) 



Name 



Address. 
City 



.state. 



Zip Code 



No One! But No One! Can Compare 



TO 



PROTECTO ENTERPRIZES 

TO ORDER WRITE OR CALL: PROTECTO ENTERPRIZES. BOX 550. BARRINGTON. IL 60010 

Call 312/ 382-5244 

8 to 5 Weekdays 9-12 Saturdays 



I 



(See Next Pages) 



Header Service No. t1 




OMMODORE 



64 



(more power than Apple II at half the price) 



COMPUTER AND SOFTWARE 
•■^■i SALE 9MSm 



$99. 



50* 



• 170K DISK DRIVE $159.00 * 

• TRACTION FRICTION PRINTER $79.00* 



WE 

HAVE 

THE 

BEST 

SERVICE 



WE 

HAVE 

THE 

LOWEST 

PRICES 



VIC-20 

(a real computer at the price of a toy) 

50 



S79. 



COM-64 POWER FOR VIC-20 $79.00 

NEW VOICE SYNTHESIZER $59.00 
(Com-64 or VIC-20) 



* COMMODORE 64 COMPUTER S99.50 

You pay only $199.50 when you order Ihe power- 
ful e4K COMMODORE 64 COMPUTER! LESS the 
value of the SPECIAL SOFTWARE COUPON we 
pack with your computer that allows you to 
SAVE OVER $100 oft software sale prices! I With 
only $100 Of savings applied, your net computer 
cost is $99.50! ! 

*170K DISK DRIVE $159.00 

You pay only $259,00 when you order the 170K 
Disk Onve! LESS the value of Ihe SPECIAL 
SOFTWARE COUPON we pack wilh your disk 
drive that allows you to SAVE OVER SlOO off 
software sale prices!! With only $100 of savings 
applied, your net diskdrive cost is $159.00. 

* TRACTION FRICTION PRINTER $79.00 

You pay only $179 00 when you ordet Ihe Com- 
star T/F deluxe line printer that prints 8 1'2 x 11 
full size, single sheet, roll or fan fold paper, 
labels etc. 40. 66. 80, 132 columns. Impact dot 
matrix, bi-direclional, 80 CPS. LESS Ihe value of 
Ihe SPECIAL SOFTWARE COUPON we pack 
with your printer thai allows you to SAVE OVER 
SlOO off software sale prices!! With only $100 of 
savings applied your net printer cost is only 
$79,00- 

4 COLOR PRINTER/PLOTTER S99.00 

Lowest cost, 4 color, 80 column, letter quality 
PRINTER/PLOTTEfl (or Com-64 or V(C20 com- 
puters!! List programs. High resolution graphics 
lor charts and geometric figures. INCLUDES IN- 
TERFACE AND SPECIAL SOFTWARE SAVINGS 
COUPON!! 

80 COLUMN BOARD $99.00 

Now you program 80 COLUMNS on Ihe screen 
at one Irme! Converts your Commodore 64 to 80 
COLUMNS when you plug in Ihe 80 COLUMN 
EXPANSION BOARD!! PLUS— you can get an 80 
COLUMN BOARD WORD PROCESSOR With mail 
merge, terminal emulator. ELECTRONIC 
SPREAD SHEET. List $59.00 SALE $24,95 if pur- 
chased with 80 COLUMN BOARD!! (Tape Or 
Disk) 

80 COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR $69.00 

This EXECUTIVE WORD PROCESSOH IS the 
finest available for the COMMODORE 64 com- 
puter! The ULTIMATE for PROFESSIONAL Word- 
processing application! DISPLAYS 40 OR BO 
COLUMNS IN COLOR or Black and White! Sim- 
ple to operate, powerful text editing with a 250 
WORD DICTIONARY, complete cursor and in- 
sert/delete key controls line and paragraph inser- 
tion, aulomalic deletion, centering, margin set- 
tings and output lo all printers! Includes a 
powerful mail merge. 20,000 WORD DIC- 
TIONARY ■ List $24.95 SALE $19,95. EXECUTIVE 
DATA BASE - List $69,00 SALE $49.00. (Disk 



SPECIAL SOFTWARE COUPON 


We pack a SPECIAL SOFTWARE COUPON | 


with every COMMODORE 


64 COMPUTER- ■ 


DISK DRIVE PRINTER-MONITOR we sell! ■ 


This coupon allows yoii 


to SAVE 


overH 


$100 OFF SALE PRICES! 


Up to $500 sav- ■ 


Ings are possible*! 








PROFESSIONAL SOFTWARE 




COMMODORE64 




Ntmt 


List 


Sale 


Coupon 


Executive Word 








Processor 


199 00 


seg.oo 


JS9,(X) 


Executive Data Base 


IS9 00 


S59 00 


$39 00 


20.000 Woid Dictionary 


J2495 


S1995 


$14,95 


EfeclfOnic Spreadstieel 


159 95 


S49 00 


S39 00 


Accounting Pack 


S49.O0 


13900 


$29 00 


Tolai 6 2 








Word Processor 








Tape 


J69 00 


S4900 


S34 00 


Disk 


«r9 9S 


$59 00 


S39 00 


Total rem 2 6 








Word Processor 








Tape 


t44 95 


$34 95 


122 00 


Disk 


J«00 


«9 00 


$27 00 


Total Label 2,6 








Tape 


124,95 


SISOO 


11200 


Disk 


t2995 


J23 00 


$15(X) 


Programmers 








Helper(Di5kl 


$69 00 


tS9 95 


J29 95 


80 Column Screen 








(DiskI 


t59.95 


S39 95 


(29,95 


Cf usri-CJ umble-Ctiomp 








(Tape/ Di ski 


$29 95 


(2495 


$1995 


PitstoplCartnOgel 


«9 95 


S»95 


J24 95 


Typing Teacher 








aape/Diskl 


$29 95 


J24 95 


$1500 


Sprile Designer (Di ski 


S16,95 


114.95 


ttooo 


Fireball Joy Slick 


S24 95 


$15 95 


$1000 


Ligtil Pen 


S39 96 


$1695 


J 14 95 


Dust Cover 


% B95 


i 6 95 


$4 60 


(See lOOcoupon items in oui calaiog'l 




Write or call for 




Sample SPECIAL SOFTWARE COUPON! ■ 



EXECUTIVE QUALITY 
PROFESSIONAL BUSINESS SOFTWARE 

The Cadillac of business prograrns 
lor Commodore 64 Computers 



Ittin 

Inventory Managemeni 
Accounts HacetvaPle 
Accounts Payable 
Payroll 
General Ledger 



Llil 
$99 00 
$99 00 
$99 00 
199 00 
S99 00 



•SALE 

$59 00 
S59 00 
$59 00 
$59 00 
S59 00 



Coupon 

$49,00 
$4900 
$4900 
$49 00 
$4900 



VIC-20 COMPUTER $79.50 

This 2SK VIC-20 computer includes a toll size 66 
key typewriter keyboard color and graphics keys, 
upper/lower case, lull screen editor, 16K level II 
microsoft basic, sound and music, real time 
floating point deciinal, sell teaching book, con- 
nects to any T,V or monitor! 

COM-64 POWER FOR VIC-20 $79.00 

Just plug in our 32K RAI^ MEMOm EXPANDER 
and you get as much usable programming power 
as Ihe Commodore-64 computer! ! Master contro! 
switches on cover. Gold Edge connectors, five 
year warranty (FREE $29,95; CARTRIDGE GASdEl 

NEW VOICE SYNTHESIZER $59.00 

For Com.64 or VIC-20 computers. Just plug it in 
and you can program words and sentences, ad- 
just volume and pitch, make talking adventure 
games, sound action games and customized 
talkies!! FOR ONLY $19.95 you can add TEXT 
TO SPEECH, just type a word and hear your 
computer talk— ADD SOUND TO "ZORK,' 
SCOTT ADAH4S AND AAHDVARK ADVENTURE 
GAI^ESIMDiSkortape). 

16K RAM CARTRIDGE $49.00 

Increases VIC-20 programming power 4 times. 
Expands total memory to 41 K (41,000 bytesl. 
Memory block switches are an outside cover! 
CARDCO includes FREE $29.95 game! ! 

BK RAM CARTRIDGE $34.95 

Increases VIC-20 programming power 2 1'2 
limes, Enpands total memory to 33K (33,000 
bytesl Includes FREE $16,95 game, 

3 SLOT SWITCHABLE EXPANDER $24.95 

Allows you to add 3 cartridges at one time- 
switch select lo turn slots on or off— PLUS reset 
button. A must for your VIC-20 computer" 

60K MEMORY EXPANDER $49.00 

Sixslot Board — Switch selectable — Resel but- 
ton — Ribbon cable — CARDCO, A must to get 
Ihe most out of your VIC-20 Computer! 

9" GREEN SCREEN MONITOR $69.00 

Excellent quality SANYO, easy to read, 80 col- 
umns X 24 lines. Green Phosphorous screen 
with anti-glare, metal cabinet! Saves your T.V, 
PLUS S9 95 for connecling cable. Com-64 or 
V1C20 

12" GREEN OR AMBER MONITOR $99.00 

Vour choice of green or amber screen monitor, 
lop quality, SANYO, 80 columns x 24 lines, easy 
to ready, anti-glare, lasler scanning' A must lor 
word processing PLUS $9.95 for connecting 
cable, Com-64 or VIC-20. 



• LOWEST PRICES' 
• BEST SERVICE IN U.S.A. 



15 DAY FREETRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



I AtJd $10,00 for shipping, handling and insurance iianois residents 
please add 6% tax. Add $2000 lor CANADA, PUERTO RICO, HAWAII 
I orders, WE DO NOT EXPORT TO OTHER COUNTRIES, 
I Enclose Cashiers Check, Money Order or Personal Check Allow 14 days 
I lor delivery. 2 to 7 days for phone orders, 1 day express maiM Canada 
• orders musi be in U S dollars VISA — MASTER CARD -COD 



CMTCDpD|7CC iWELOVEOUnCUSTOIVIERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to ord«r 



Reader Service No. 12 



80 COLUMN PRINTER SALE— $149.00* 



COMSTAR T/F 



Tractor 
Friction 
Printer 



** 



COMSTAR 



15 Day Free Trial - 180 Day Immediate Replacement Warranty 



Lowest Priced, Best Quality, Tractor- Friction Printers in the U.S.A. 

• Fast 80-120-160 Characters Per Second • 40, 46, 66, 80, 96, 132 Characters Per Line Spacing 

• Word Processing • Print Labels. Letters, Graphs and Tables • List Your Programs 

• Print Out Data from Modem Services • "The Most important Accessory tor Your Computer" 



•STX-80 COLUMN 
PRINTER— $149.00 

Prints full 80 columns. Super silent 
operation. 60 CPS, prints Hi-resolutlon 
graphics and block graphics, expanded 
character set, exceptionally clear 
characters, fantastic print quality, uses 
inexpensive thermal paper! Best thermal 
printer in the U.S.A.! (Centronics Parallel 
Interface). 

"DELUXE COMSTAR T/F 
80 CPS PRINTER— $179.00 

The COMSTAR T/F {Tractor Friction) 
PRINTER is exceptionally versatile. It 
prints 8'A" x 11" standard size single 
sheet stationary or continuous feed com- 
puter paper. Bi-directional, impact dot 
matrix, 80 CPS. 224 characters. (Cen- 
tronics Parallel interface). 

Premium Quality— 120 CPS 

COMSTAR T/F SUPEfllOX 

PRINTER— $289.00 

COMSTAR T/F (Tractor Friction) SUPER- 
10X PRINTER gives you all the features 
of the COMSTAR T/F PRINTER plus a 
10" carriage, 120 CPS, 9 x 9 dot matrix 
with double strike capability for 18 x 18 
dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics 



and special characters, plus 2K of user 
definable characters! The COMSTAR T/F 
SUPER-10X PRINTER was Rated No. 1 by 
"Popular Science Magazine." It gives you 
print quality and features found on 
printers costing twice as much!! (Cen- 
tronics Parallel Interface) (Better than Ep- 
son FX 80). 

Premium Quality- 120 CPS 

COMSTAR T/F SUPER-15%" 

PRINTER-$379.00 

COMSTAR T/F SUPER 15'A" PRINTER 
has ail the features of the COMSTAR T/F 
SUPER-10X PRINTER plus a 15'j4" car- 
riage and more powerful electronics 
components to handle large ledger 
business forms! (Better than Epson FX 
100). 

Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 10" 

PRINTER-$399.00 

SUPER HIGH SPEED COMSTAR T/F 
(Tractor Friction) PRINTER has all the 
features of the COMSTAR SUPER-10X 
PRINTER plus SUPER HIGH SPEED 
PRINTING— 160 CPS, 100% duty cycle, 
8K buffer, diverse character fonts, 
special symbols and true decenders, ver- 
tical and horizontal tabs. RED HOT 
BUSINESS PRINTER at an unbelievable 
tow price!! (Serial or Centronics Parallel 
Interface) 



Superior Quality 

SUPER HIGH SPEED— 160 CPS 

COMSTAR T/F 1514" 

PRINTER— $529.00 

SUPER HIGH SPEED COMSTAR T/F 
15'A" PRINTER has all the features of tfie 
SUPER HIGH SPEED COMSTAR T/F 10" 
PRINTER plus a 15'A" carriage and more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
paper feed I! 



PARALLEL INTERFACES 
For VIC-20 and COM-64-S69.00 
For Apple Computers— S79.00 

NOTE: Other printer interfaces are 
available at computer stores! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day war- 
ranty to 180 days. Therefore if your 
printer fails within "180 days" from the 
date of purchase you simply send your 
printer to us via United Parcel Service, 
prepaid. We will IMMEDIATELY send you 
a replacement printer at no charge, 
prepaid. This warranty, once again, 
proves that WE LOVE OUR 
CUSTOMERS! 



I Add J17.50 for shipping, handling and insurance. WE DO NOT EXPORT 



TO OTHER COUNTRIES EXCEPT CANADA. 



j Enclose Cashiers Check, Money Order or Personal Check, Allow 14 days 
i for delivery, 2 to 7 days for phone orders, 1 day express mail! Canada 
I orders must be in U.S. dollars. VISA — MASTER CARD ACCEPTED We 
I ship C.O.D. 



BOX 550, BARRINGTON, ILLINOIS 60010 
Phon* 312/382-5244 to ordar 



SUPER-10" ABCDERGM ZaKL.riNCII 

ABCDEF&HIJKLMN0PQR8TUVWXYZ ]. 2: 



IXUVWXV 

>7e9o 



4 Color 
80 COLUMN Letter Quality 

PRINTER/PLOTTER 

Super _^^^ Special 



$99 

Sale 




$99 



^12 PRICE 
SAtE 



• LOWEST PRICE IN U.S.A. 

Commodore-64 & VIC-20 

$500 Software SAVINGS Coupon Included • 

• List your programs • High resolution graphics for bar charts and geometric figures (like 
spirograph) • Plugs directly into VIC 20 and Commodore 64 — Interface included • Lowest 
cost letterquaiity printer in the country. 



« PROJECTED SALES « 



"" * i 

ill 




1 


1 




a 




■^ 





! 




D 




« 


? K 


_i 



ACTUAL PRINT SAMPLES 

UPPER CASE - ABCDEFGhlJKLflNOPQRSTUUWXYZ 
LOWER CASE - abcde f 9h i jH mnopqr s t u^juxyz 



At last you can list your programs (even control characters) and make beautiful high resolu- 
tion graphics at an affordable price. This 80 column letter quality printer/plotter is great for 
making complex bar charts for business plus fancy greeting cards and geometric designs. 
Great for homework too. Everyone must have a 4 color printer plotter for their VIC-20 or 
Commodore-64. List $199.00. Sale $99.00. ■ Sino Softwore SAVINGS Coupon Induded- 




. LOWEST PRICES • 15 DAY PREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL » OVER 500 PROGRAMS • FREE CATALOGS 



t Add tlO.OO for tMppIng, handling end Inturmc*. Illlnoli nildanlt f 
I plMM WW a% tw. Add SW.OO (or CANADA, PUERTO RICO, HAWAII | 
j oiilwm. WE DO NOT EXPORT TO OTHER COUNTRIES. | 

I EnclOM C«shiars Ch«clt, Money Ordar or Parsonil C^l•Ck. Allow 14 | 
I days lor dalivary, 2 to 7 days lor phona ordars. 1 day aiprass mall! l 
I Canada ordars must tM in U S dollars Visa - MastarCard - COD. • 



CMTCppD|7PQ iwELOveouncusTOMEHSi 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phon* 312^382 5244 lo order 



Reader Service No. 1^6 




COMMODORE.64 or VIC-20 

VOICE SYNTHESIZER 



MAKE YOUR 
COMPUTER TALK 




VOTRAX BASED 
HARDWARE 



SALE 



$ 



ONLY 



59 



00 



You can program any words or sentences • Adjust volume and pitch • Make adven- 
ture games that talk • Real sound action games • Make customized talkies • (Demo 
disk or tape Included) 



You can add TEXT TO SPEECH SOFTWARE that allows you to simply type what you 
want to hear!! Also allows you to add sound and voice to SCOTT ADAMS AARD- 
VARK and "ZORK" ADVENTURE GAMES List $29.95 Safe S19.95 (Disk or Tape) 



• LOWEST PniCES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN USA. ♦ ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



COMMODORE 64 

80 COLUMN BOARD 



SALE 



$ 



FOR ONLY 



99 



00 



Now you can program 80 columns on the screen 
at one time! Converts your Commodore 64 to 80 
columns when you plug in the PROTECTO 80 
Expansion Board. List $199.00. Sale $99.00. 




FOR ONLY $24.95 you can get an 80 Column Board "WORD PROCESSOR" with mai 
terminal emulator PLUS! AN ELECTRONIC SPREAD SHEET (like Visicalc) List $59.00. 
*lf purchased with board only $24.95. (Tape or Disk) 

WE LOVE OUR CUSTOMERS 



merge and 
Sale $39.90. 



I 



Add S3 00 fo( posiage Aod S6 00 tor Canada Puerto nico mavvaii 
orders WE 00 NOT EXPORT TO OTHER COUNTRIES 
Enclose Cashiers Check Money Order or Personal CriecK Aiiow iis 
days for delrvery, 2 to 7 days lor pnorie orOers i day e«pfess mail 
Canada orders musi be m u S dollars We accept Visa and Master 
Card We ship C O D 



p^TpDpD|7C^ VVE LOVE OUR CUSTOMEHSi 

BOX S50, BARRINGTON, ILLINOIS 60010 
Phone 312/382 S244 to order 



Reader Service No. 13 



EXPAND YOUR VIC-20 
' TO COMMODORE-64 POWER! 



$ 



FOR ONLY 



79 



00 



(PLUS A FREE $29.95 CARTRIDGE GAME) 



LISTPRICE$159.95 



Just plug in the 32K RAM MEMORY EXPANDER and you have as much usable progrannming 
nnemory as the Commodore-64 computer!!! This 32K RAM EXPANDER CARTRIDGE gives 
your VIC-20 computer 9 TIMES MORE PROGRAMMING POWER!! 



5 YEAR WARRANTY 




MASTER 

CONTROL 

SWITCHES 



GOLD EDGE 
CONNECTORS 



FEATURES 

Allows Full 32K Memory Expands ion 

Separate Enable Switch for each 8K Block 

Gold Plated Contacts 

Frenulum Grade Components 

Fully Tested and Burned In 

5 Year Warranty 

Complete Documentation 



1/2 PRICE EXPANSION SALE!! 



3K Ram Expander 

8K Ram Expander (2'A times more power) . . , 
16K Ram Expander (4 times more power) . . . , 
32K Ram Expander (9 times more power) 

(PLUS $29.95 FREE GAME CARTRIDGE) . , 
3 Slot Expander Board ~ Switch Selectable 



LIST 

$ 39.95 
S 69.95 
$ 99.95 

$159.95 
$ 49.95 



SALE 

$19.95 
$34.95 
$49.00 

$79.00 
$24.95 



WE LOVE OUR CUSTOMERS! 



Add t3 00 <or postage Add se 00 loi CANADA PUERTO RICO. HAWAII ■ 

orders WE DO NOT EXPORT TO OTHER COUNTRIES | 

Enclose Cashiers Check. Money Order or Pergonal Chech Allow 14 | 

days lor delivery. 2 10 7 days (or phone orders, 1 day eipress mail' I 

Canada orders musi be m U S dollars We accepi V>sa and Masrer- ■ 

Card We ship CO D I 



IWE LOVE OUR CUSIOMEBSl 



ENTERPRIZES 

BOX 550. BARRINGTON, ILLINOIS 60010 
Phon* 312^302-5244 to ordtr 



Reader Service No. 14 




Tilt; " 



ISSUE It 1-JAN. -84 $4d00 

The 64 V. the Peanut! The com- 
puter as communications device! 
Pratecto's Bill Badger inter- 
viewed! And ready to enter: the 
Multi Draw 64 graphics system! 
The Interrupt Music Maker/ 
Editor! A Peek at Memory! Pro- 
gramming Sequential Files! 



AS 






r_ I r \ r [-- 'v 

64! \ r^^ ! 

> /I - ^-^ /\ ! 



Itt.lllTIIIS? 

ir vrt 
rw'.ss 
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ISSUE #3— MAR. '84 $4.00 
Anatomy of the 64! Printer In- 
terfecing for the 64 and VIC! 
Educational software: first of a 
series! Commodares! And 
ready to enter: Space Lanes! 
Random Files on the 64! Easy 
Access Address Book! Dynamic 
Power for your 64! 



Back Issues 



Don't punch another key 
without a complete collection 
of Ahoyl and the program- 
ming strategies and product 
analyses each issue provides. 
Order while supplies last! 




ISSUE #2-FEB. '84 $4jOO 

Illustrated tour of the 1541 disk 
drive! Synapse'sIhorWblosenko 
interviewed! Usere groups! Arti- 
ficial intelligence! And ready to 
enter: Music Maker Part D! 
Night Attack! Programming Rel- 
ative Files! Screen Manipulation 
on the Commodore 64! 




ISSUE » 4-APR. '84 $4i)0 

Petspeed and Easy Script 
tutorials! Printer interfacing and 
educational software guide con- 
tinued! Lower case descenders 
on your 1525! Laserdisc! The 
Dallas Quest Adventure Game! 
And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! 



ISSUE #5-MAY '84 $4.00 

The Future of Commodore! In- 
side BASIC program storage! 
C-64 Spreadsheets! Memory 
Management on the VIC and 64! 
Educational Software Guide 
continues! And ready to enter: 
Math Master! Air Assault! Bio- 
rhythms! VIC 20 Calculator! 



ISSUE #6-JUNE '84 $4.00 

Game programming column 
begins! Program generators! 
Rupert on inputting! Memory 
Management and Educational 
Software Guide continue! And 
ready to enter: Post Time for 
the 64 and 20! Alpiner! Sound 
Concept for the VIC 20! 



Send coupon or facsimile to: 

Ahoy! Back Issues, Ion International Inc., 45 West 34th Street— Suite 407, 



New York, NY 10001 






Ptease Send Me The Following: 

Copies of issue number 

Copies of issue number 

Copies of issue number 
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ADDRESS. 



Enclosed Please Find My Check or 
Money Order for $ 

(Outside the USA please 
add $1 .00 for every copy) 



CITY__ 
STATE. 



ZIP CODE. 
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By Michael Kleinert and David Barron 

This month we thought we would take a step back 
into the past to a time when we first began using 
Commodore computers. That first 8K PET with the 
calculator keyboard possessed four puzzling keys 
above the numeric keypad. It didn't take us long to 
figure out that these keys were used for "onscreen" 
editing of your program. It wasn't until later that the 
real power of these keys was unleashed. It just so 
happens that Commodore has maintained the func- 
tion of these keys in all of their computers, including 
your VIC or 64. 

These keys are used to control cursor movement 
and positioning from within a program. Even when 
a program is running and you do not actually see a 
cursor on the screen, the computer is keeping track 
of where the "cursor" should be. This is where the 
next printed item will appear. 

When a print statement is executed, with each 
character displayed, the cursor is moved over one 
character to the right. When the computer is finished 
with the line, the cursor moves back to the left hand 
column, and down to the next line. If you happen to 
tag a semicolon to the end of the print statement, the 
cursor stays at the position following the last printed 
character. 

10 PRINT "HELLO," 

20 PRINT "THIS IS A SAMPLE RUN WI 

THOUT A SEMI-COLON." 

30 END 

RUN 

HELLO, 

THIS IS A SAMPLE RUN WITHOUT A SE 

MI-COLON. 

10 PRINT "HELLO, " 



20 PRINT "THIS IS A SAMPLE RUN WI 
TH A SEMI-COLON." 
30 END 

RUN 

HELLO, THIS IS A SAMPLE RUN WITH A 
SEMI-COLON. 

If you have ever tried typing any of the cursor 
control keys after typing quotation marks, you have 
probably found that strange symbols appear. When 
you type an open quotation mark, the built-in editor 
goes into "quotes mode." This means that when you 
now type any of the cursor controls, including 
CLEAR SCREEN and HOME, it will not respond 
with its usual function, but will instead print its 
identifying symbol. (Function keys, color keys, IN- 
SERT, RVS ON and RVS OFF produce their own 
symbols as well.) Below is a chart of these symbols. 



CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 



CURSOR RIGHT 
HOME CURSOR 
CLEAR SCREEN 



The up, down, left, and right cursor functions 
move the cursor one space in their respective direc- 
tion. This is a "non-destructive" cursor movement. 
In other words, the cursor will be moved without 
erasing anything in its path. This enables you to 
move the cursor anywhere on the screen without any 
ill effects. The clear screen control clears the screen 
and returns the cursor to the upper left comer. 
Home puts the cursor in the upper left comer with- 
out clearing the screen. 
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You may be wondering how you can use these 
cuRor control functions to your advantage. They can 
be used to format text on the screen neatly, or to up- 
date data which is being displayed on the screen 
without erasing the screen and reprinting everything. 

Below is a sample program that displays the con- 
stantly changing buih-in clock and a running counter 
simultaneously using cursor controls. 

10 PRINT" {SC}" 

20 PRINT" {HM} (CD) (CD) (CD) {CD) (CR) 

(CR) (CR}(CR}(CR}";TI$;"(CR){CR){C 

R){CR)(CR)";C 

30 C=C+1 

40 G0T020 

Without knowledge of cursor controls, to clear the 
screen and print an asterisk in the 10th column of 
the 5th row of the screen, you might be inclined to 
write the following program. 

5 PRINT"(SC}"; 

10 F0RX=1T05 

20 PRINT 

30 NEXT X 

40 PRINT TAB(IO);"*" 

50 END 



Cursor is here 



However, with cursor controls, the above program 
can be accomplished with just one print statement as 
shown below. 

10 PRINT" (SC) (CD) (CD) (CD) (CD) (CD) 
{CR){CR}(CR}(CR}(CR)(CR}(CR}(CR}{ 
CR) (CR)*" 
20 END 

In the print statement above, the first character 
clears the screen and moves the cursor to the upper 
left hand corner. The next five characters move the 
cursor down five lines, and the next ten characters 
bring the cursor over ten spaces to the right. The as- 
terisk is then printed in this position. 

The cursor control characters can also be used to 
create some simple animation. Let's say we want to 
move the two characters "—>" across the screen. 
The technique for moving this "arrow" is fairly sim- 
ple. It must be printed, then the tail must be erased, 
and it is then printed again over one screen position. 
A trick used in doing this is to always print a space 
before the arrow. Using this trick, in moving over 
one screen position and reprinting the arrow, the 
space will always erase the old tail. This is a bit 
hard to follow at first, so below is a diagram to help 
clarify this. 



space — 


> 







t 

Print two "cursor lefts" to move cursor here 



space 


space 


— 


> 





t 

Printing a space and then the arrow erases 
the old tail and "moves" the arrow to the right 

The following program imitates the above steps to 
move the arrow: 

10 PRINT" {SC}{ CD) {CD} {CD} {CD} {CD} 

(CD)"; 

20 FOR X = 1 TO 35 

30 PRINT" ->(CL)(CL)"; 

40 FOR Y = 1 TO 50 : NEXT Y : REM 

DELAY LOOP 
50 NEXT X 
60 END 

Moving a character in a vertical direction is a lit- 
tle bit different. To move an asterisk down the 
screen, we must repeat the following steps: 

1. Print the asterisk 

2. Erase the asterisk 

3. Move the cursor down underneath the previous 
asterisk 

4. Go back to step 1 

Imagine that the following diagram represents four 
positions on the screen. 



■^Cursor is here 



* 


2 


3 


4 



After printing the asterisk in box 1, the cursor will 
be positioned in box 2. Therefore, to erase the aster- 
isk we must move the cursor back to box 1 with a 
cursor left. 



After cursor left, 
cursor is here -► 



^« 


2 


3 


4 



Continued on page 48 



Next issue, David Barron delves into one of your Commodore &fs most amazing facets: its sound-produc- 
tion capabilities. His two-part article/program will be your k^ to Unraveling the Mysteries of Sound! 
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a iffffr 



by Dale Rupert 



Each month, we'll present several programs 
designed to toggle the bits in your cere- 
bral random access memory. We invite 
you to send your solutions to Commodares, 

P.O. Box 723, Bethel, CT 06801. We'll print and 
discuss the cleverest, simplest, shortest, or most un- 
usual solutions. Your original programming prob- 
lems would be equally welcome! 



Problem ff7-l: Definite Ending 

This problem was submitted by Paul T. Dawson 
of Springhouse, Pennsylvania. Paul's problem is to 
write a one-line program which does not GOTO it- 
self or RUN itself. It must create a changing dis- 
play. And (here's the catch) it must take as long as 
possible to run! It must eventually end on its own, 
but that "eventually" may be long after you and I 
are gone. 

Paul sent his solution which we will list next 
month. He claims his one-liner will take 2E-I-134 
years to finish. That's a good start, but surely some 
other Ahoy! readers can put that number to shame. 
Your solutions should also include an explanation 
for how the duration was calculated. (Deadlines 
won't allow us to run them all to completion!) 

Problem §7-2: Unscrambled Word 

This problem was submitted by Kent Rittenhouse 
of Wauseon, Ohio. Kent's problem is to write a 
program for which you can enter a scrambled word, 
and the computer will print out all possible combin- 
ations (or pennutations, to use the technical term) of 
the letters of that word. 

We won't require that the computer be able to de- 
cide which of the combinations is the correct, un- 
scrambled word. You would easily be able to select 
the correct word from among the 3.6 million or so 
( 10 factorial to be exact) combinations resulting from 
any ten-letter word you might enter. DOGO KULC! 



Problem ff7-3: Letter Count 



The user types a sentence into the computer, and 
the computer responds with the number of letters in 
the sentence. Punctuation marks and spaces are not 
counted. 



Problem §7-4: Word Count 

The user types a sentence into the computer, and 
the computer responds with the number of words in 
the sentence. Easier said than done? 



Because of time delays between the time this col- 
umn is written and the time it is actually published 
(this being written on a chilly March evening), it 
will be a while before there are any solutions sub- 
mitted for last month's Commodares. Consequently 
we will present the resuhs of Problem if6-}: Speed 
Demon once we have some results. 

Problem ff&2: Simple Mystery probably didn't 
fool too many of you. It merely allowed the user to 
type, while any vowels that were typed appeared in 
reverse video on the screen. 

A solution to Problem ff6-3: String Challenge is 
listed below. The subroutine at line 100 determines 
the starting location, if any, of the string A$ within 
the string B$. It assigns the value of that starting 
position to N. Line 150 is executed only if A$ is 
found within BS. QQ then stores the value we want 
for N. In order to terminate the FOR-NEXT loop 
properly, QQ is assigned the maximum value for 
the loop. That way when the NEXT statement is ex- 
ecuted, the program continues with line 170. This is 
a way of cleaning up after yourself when you leave 
a FOR-NEXT loop prematurely. 

10 REM > PROBLEM #6-3 : STRING CH 

ALLENGE 

20 A$="CAT" : B$="CONCATENATE" 

30 GOSUB 100 
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40 PRINT N 

99 END 

100 ::REM > INSTRING SUBROUTINE 
< 

110 LA=LEN(A$) :LB=LEN(B$) 

120 N=0 

130 FOR QQ=1 TO LB-LA+1 

140 IF A$ < > MID$(B$,QQ,LA) THEN 

160 
150 N=QQ : QQ=LB-LA+1 
160 NEXT QQ 
170 RETURN 

There probably won't be any one-liners to do 
Problem ff6-4: Graphic Rectangle. The program be- 
low first assigns to variables the various graphic 
symbols that will be used. Line 80 puts the correct 
space at the top of the screen. It divides the total 
unused vertical space (24-H) in half. Line 1 10 deter- 
mines the amount of open space to the left (LS). 
Line 120 puts the space there. Line 130 prints the 
Upper Left corner. Lines 140-160 print the Top. 
Line 170 prints the Upper Right corner. The sides 
are printed by lines 180-200. Lines 210-260 put on 
the bottom. 

10 REM PROBLEM #6-4 : GRAPHIC REG 

TANGLE 

20 UL$=CHR$(111):UR$=CHR$(112) 

30 LL$=CHR$(108):LR$=CHR$(186) 

40 T$=CHR$(183):B$=CHR$(175) 

50 L$=CHR$(165):R$=CHR$(167) 

60 INPUT "HEIGHT, WIDTH";H,W 

70 PRINT CHR$(147) 

80 FOR N=l TO (24-H)/2 

90 PRINT 

100 NEXT 

110 LS=(40-W)/2 

120 PRINT SPC(LS) ; 

130 PRINT UL$; 

140 FOR N=2 TO W-1 

150 PRINT T$; 

160 NEXT 

170 PRINT UR$ 

180 FOR N=2 TO H-1 

190 PRINT SPC(LS) ;L$;SPC(W-2);R$ 

200 NEXT 

210 PRINT SPC(LS) ; 

220 PRINT LL$; 

230 FOR N=2 TO W-1 

240 PRINT B$; 

250 NEXT 

260 PRINT LR$ 
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We are still receiving solutions to the Palindromes 
and Reversals problems from the March Ahoy! Paul 
Dawson combined the Crossed Name and Reversals 
to come up with the following program. 

10 REM > CROSSED AND REVERSED NAM 

E < 

20 INPUT A$:PRINT CHR$( 147) : L=LEN 

(A$) 

30 FOR A=l TO 9E9 : FOR B=0 TO 38 

-L 

40 FOR C=l TO L 

50 PRINT CHR$(145)TAB(B+C)MID$(A$ 

,C , 1 ) 

60 'print CHR$(145)TAB(39-B-C)MID$ 

(A$,C,1) 

70 NEXT : PRINT : NEXT : NEXT 

Thanks to the following people for their work on 
Palindromes and/ or Reversals: Ray Winter (Savage, 
MT), Michael Vail (Thompson, PA), Barbara Stein- 
man (New York, NY). A.L. Russ (Auburn, KS), 
R. Shane Robinson (Avoca, lA), Kent Rittenhouse 
(Wauseon. OH), Dave Playford (Brockville, Ontar- 
io), Charles Morgan (Los Angeles, CA), Steve Mol- 
loy (Chelmsford, MA). Richard Magoun {Plympton, 
MA), Wilf Long (Manitowaning, Ontario), John 
Eveland (Des Moines, lA), Rob Einer (Woodruff, 
WI), Paul Dawson (Springhouse, PA), Tony Dama- 
to (Jacksonville, FL), Joe Cook (Paw Paw, MI), 
Robin Boyd (Lakewood. NJ), Robert Bostwick (No. 
Platte, NE), and John Adams (St. Charles, IL). 

Their .solutions varied from long to short, user- 
friendly to bare-necessities, and with differing de- 
grees of flexibility. Thanks for all the kind words 
and suggestions, too. Till next month, keep those 
brains working! D 



PROGRAMMERS! 

Ahoy! Is looktng for the best in games, utilities, edu- 
cational programs, music programs, graphics pro- 
grams, and programs that completely defy descrip- 
tion. If you have an original C-64 or ViC 20 program, 
we'd like to see it. 

Send a copy of your program on disk or tape, ac- 
companied by a printout and an Introductory article, 
to Ahoy! at 45 West 34th Street—Suite 407, New Ybrk, 
NY 10001. You must Include a self-addressed mailer 
with sufficient return postage affixed. 
Ahoy! pays competitive rates for accepted programs. 




FOR THE C-64 



By Joseph Fusco 



Ml I ost card games depend primarily on 

luck. Brisk is one in which you must 
rely on strategy, luck, and memory. You 
I ! must try to outwit the computer, be 

lucky with dealt cards, and remember cards played 
and points accumulated. The game could be pro- 
grammed for two players, but I felt computers 
make very few mistakes and present a formidable 
opponent. 

Type in the program, then save a copy to disk or 
tape before running in case of typing errors! Typing 
errors may cause your program to crash, losing 
hours of typing. 

The following will give you an idea of how to 
play the game. 

The object of the game is to be the first player to 
score 121 points. The game is played in two hands, 
each consisting of twenty rounds and worth 120 
points. You must try to score as many points as you 
can in each hand. The more points you make in the 



first hand, the less you will have to make in the 
second hand. As soon as one of the players reaches 
121 points the game is over! Playing the game well 
takes a little practice. After reading the instructions 
you will have the fundamentals of how to play. 

The game is played with forty cards. There are 
no 8's, 9's, or 10"s in the playing deck. 

Point values for each card are as follows: 

1) ACES are worth eleven points. 

2) THREES are worth ten points. 

3) KINGS are worth four points. 

4) JACKS are worth three points. 

5) QUEENS are worth two points. 

All other cards have no point value. In this card 
game the JACKS are higher than the QUEENS. 

The computer deals seven cards at the start of 
each hand: three to you, three to itself, and one face 
up. 

Trump is determined by the card that is face up 

Continued on page 48 
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AN IN DEPTH REPORT 



By Morton Kevelson 



While dual disk drives are nothing new 
to the veterans of microcomputing, 
many of our readers are still novices 
1 in this regard. A good percentage are 

probably still considering the aquisition of their first 
disk drive. Just what is a dual disk drive and how 
does it differ from the Commodore 1541? What 
does it do to justify the premium price tag, more 
than twice that of two 1541 disk drives? Is it twice 
as hard to figure out as the 1541? One would cer- 
tainly hope not, as figuring out the 1541 was bad 
enough. 

Read on. The answers to these questions and 
more will be forthcoming. 



WHY DUAL DISK? 

The Commodore 1541 disk drive is a very power- 
ful data storage device, capable of storing over 
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170,000 bytes of data on the surface of a magnetical- 
ly coated floppy disk. Even more important, any of 
this data can be rapidly and randomly accessed by 
the computer. This large storage capacity, combined 
with direct access to data, easily justifies the pur- 
chase of a disk drive. 

This being the case, what advantage does a se- 
cond disk drive offer? The most obvious is a doub- 
ling of accessible storage capacity. The widespread 
acceptance of the Commodore 64 has resulted in a 
concurrent development of more sophisticated soft- 
ware. These programs are very often too complex to 
reside in the computer's memory and still leave 
space for data. Software developers are able to work 
around this limitation by breaking up the programs 
into functional modules which are stored on the 
disk and called when needed. (See Memory 
Management Parts I <&. II, May and June Ahoy!, for 



examples of these techniques.) 

In many cases, commercial programs are copy 
protected, making it inadvisable or impossible to 
store data on the same disk. Other commercial 
packages are so complex that little or no space is 
available on the program disk for data storage. In 
either case, the user must %vjap disks each time a 
data or program operation is called for: a tedious 
procedure at best, aggravatingly time-consuming at 
worst. Having two drives, one for program and one 
for data, is a clear advantage. 




PHOTO 1: 
Front panel of 
MSDDual Disk 
Drive. Disks 
are inserted 
vertically and 
secured by 
twisting and 
locking levers 
a quarter turn. 
READER SER- 
VICE NO. 4 



Shortly after acquiring a disk drive, the need for 
maintaining backup copies of both program and 
data files becomes obvious. With regard to program 
files, a simple LOAD, swap disk and SAVE will 
usually work. The process becomes more involved 
with non-relocatable machine language programs 
and various types of data files. The latter always re- 
quire some kind of custom program just to be read. 
These copy programs always require the use of the 
computer for their operation. For single drive 
owners these utilities are essential. 

Although the solution to backing up most disks is 
readily available, it is not particularly convenient. 
The process tends to be time consuming. The 
primary limitation is the speed at which data can be 
transferred between the computer and the disk 
drive. In the case of the Commodore 64 and the 
VIC 20, the connecting link is the serial bus. To 
lower production costs. Commodore designed this 
link with a minimum number of wires. Data is 
transferred over a single conductor one bit at time. 
Compare this to the eight wires, which transfer a 
full byte at one time, inside the computer. To 
enhance the reliability of the link, and keep the 
price down, the transmission speed was kept slow. 
As a result, LOAD and SAVE operations do take 
time. 



Slow operating speeds are fairly easy to live with 
when loading and running programs. Backing up 
data is another story. This process, although essen- 
tial, is basically nonproductive. Typical backup 
times for an entire disk are on the order of twenty 
to forty minutes. The time varies depending on the 
particular software being used. Additionally, during 
the backup procedure, the computer is tied up. It 
must act as both a controller and an intermediate 
storage area for the data being duplicated. 

A single disk drive poses an additional bother. 
The computer has considerably less memory than 
the capacity of a disk. The user must attend the en- 
tire procedure, swapping disks four or more times. 
Two single disk drives offer some relief. The user 
is able to "walk" away and let the computer do all 
the work. Two single drives do not speed things up 
very much because the data must still pass through 
the computer via the same serial bus. The 
computer again remains tied up for the duration. 

Consideration must also be given to the fact that 
the useful life of the disk drive is being frittered 
away while duplicating disks. Although the 1541 ap- 
pears to be designed for continuous operation, long 
copy sessions will raise the operating temperatures 



PHOTO 2: 
Back of the 
MSD has all 
the standard 
1541 connec- 
tors, including 
two serial port 
connectors that 
allow daisy 
chaining of 
additional disk 
drives. 




to their maximum. Rumor has it that many users 
have found the drive's limitations the hard way. 

THE MSD SD-2 

The MSD SD-2 is a true dual disk drive. This 
means that the two drive mechanisms share a com- 
mon controller and have available a common inter- 
nal bus for high speed communication. The advan- 
tage of the internal bus is that it does not utilize the 
computer as an external data link. After all, com- 
puters have lots of better things to do than act as a 
chit-chat link for a couple of disk drives. Further- 
more, having a common controller allows the disk 
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operating system to have the necessary copy com- 
mands built right in. Once again, the computer can 
go about its business without bothering with all 
those copy programs. 

The MSD SD-2 has these capabilities. In addition 
to all the 1541 DOS commands, the Duplicate com- 
mand is also supported. This command is part of 
the Commodore DOS on the now discontinued 
CBM 4040 dual disk drive, as well as all the other 
Commodore dual disk drives. Executing the com- 
mand will cause the disk drive to make an exact 




duplicate of the original disk. The syntax is 
straightforward: 

OPEN 15,8,15,"D1=0" 

Or if the command channel is already open: 

PRINT#15,"DU0" 

[f the DOS wedge has been initialized, 

/DUO 

does the job. In each case the disk in drive will 
be duplicated onto the disk in drive 1. Note the use 
of drive numbers and 1. The duplicate command 
works in either direction by simply reversing the 
drive numbers in the command. 

Both drive units are still addressed with a single 
device number. The individual drive units are select- 
ed by the drive number parameter (dr) embedded in 
the actual DOS command. Users of the 1541 single 
disk drive may have noticed references to this 
parameter in their manual without paying too much 
attention to it. The parameter is rather superflous 
with a single drive. 

The duplication process is farily quick. The total 
time involved, including formatting of the destina- 
tion disk, is one minute and fifty four seconds! 

Yes, that is less than two minutes. When you con- 
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sider that a 1541 takes a minute and a half just to 
format a disk, this is quite an improvement. 

Hold on now! Don't go off in search of your 
checkbook, credit cards, or local bookie. This is 
just the icing on the cake. Before we get into the 
rest of the operating details, let's take a break and 
look at the hardware. 

THE HARDWARE 

The MSD SD-2 is a boxy looking affair in a stur- 
dy steel case. This case also acts as a heat sink for 
the drive electronics, keeping things from getting 
too hot. The drive stands six and one-eighth inches 
high by five and seven-eighths inches wide and thir- 
teen inches deep. The overall volume of 468 cubic 
inches is just 15 percent larger than the 407 cubic 
inches occupied by the 1541 disk drive. 

The front panel is shown in photo I. The two 
drive units are vertically oriented. The disks are in- 
serted vertically with the labels to the left. As 
shipped from the factory, drive is to the left and 
drive 1 is to the right. If you are a veteran CBM 
4040 user, which has drive to the right, or are 
left handed, or just have an aversion to this par- 
ticular arrangement, the drive numbers can be easi- 




ly changed. We shall see how shortly. For some rea- 
.son, MSD chose not to supply any drive number 
labels for the front panel— a minor oversight. 

The disks are secured by the positive action of 
twisting the locking levers (item 1, photo I) a 
quarter turn clockwise. There are no spring loaded 
doors or disk ejection mechanisms with this ar- 
rangement. The disk openings are properly recessed 
to permit a firm finger grip on the disk jacket. This 
allows the user to overcome any adverse effects due 
to loose labels or write protect tabs. 

You will also notice, in photo 1, the presence of 
five indicator lights. Some of these light-emitting 



diodes (LED) are the indicators that Commodore 
left out on the 1541. The green Power LED, in the 
upper left hand corner, serves a dual purpose. A 
built-in diagnostic routine will identify certain com- 
ponent failures by cyclically blinking a number of 
times on power up. The number of flashes in each 
cycle (1 to 7) identifies the particular failed compo- 
nent. These could be the microprocessor, the RAM 
or ROM chips, or the drive mechanism. This feature 
could save a service call or shipment back to the 
factory for a knowledgeable user. During normal 
operation this light glows continuously. 

The two drive LEDs, labeled Drive and Drive 
1, indicate when a disk file is open on the respec- 
tive drive unit. This can be very useful for a pro- 
grammer when debugging is being done. These 
lights will also blink when a disk error condition 
occurs. These lights actually perform the same 
function as the red LED on the 1541 disk drive. 

In addition, each drive unit has a red activity 
LED (item 2, photo 1). These indicate which unit is 
physically active at any given time. They will light 
up whenever the drive motor for the corresponding 
unit is spinning. 

The back of the disk drive (photo 2) has all of 
the standard 1541 connectors. The two serial port 
connectors (item 1, photo 2) allow the daisy chain- 
ing of additional disk drives and a printer. The 
power connector (item 2, photo 2) is identical to 
the one on the 1541 as well. And as with the 1541, 
the power switch is inconveniently located on the 
back panel. The most important difference back 
here is the presence of the 24 pin "D" connector 
(item 3, photo 2). This connector is a fully imple- 
mented 8-bit parallel IEEE-488 interface. The 
presence of this interface makes the MSD SD-2 ful- 
ly compatible with all of the Commodore PET and 
CBM series computers, as well as the Commodore 
64 and VIC 20. Therefore no additional adaptors 
are required to use the disk drive with any of Com- 
modore's current line of computers. The IEEE-488 
interface, being a parallel interface, allows signifi- 
cantly faster data transfers than the serial bus— two 
to three times faster as it turns out. More on this 
later. 

(For the curious in our audience, IEEE stands for 
The Institute of Electrical and Electronic Engineers. 
This is one of the privately run, non-profit national 
engineering organizations. Among other things, the 
IEEE has assumed the responsibility of publishing 
standards for use as voluntary guides to promote 
uniformity in industry. The term IEEE-488 refers to 
one of these standards.) 



Maintenance of the disk drive should be a ser- 
viceperson's dream. The steel cover can be easily 
removed by extracting the three screws on each side 
of the case. Doing so reveals the two half-height 
floppy units by TE.C. (Tokyo Electric Works) 
(photo 3) and a nicely laid out main circuit board. 
These components, along with the power 
transformer on the main chassis, make up the entire 
works of the disk drive. 

Attention to detail and reliability is evident. The 
incoming power line is fully suppressed by a self- 
contained power line filter (item 1, photo 3). Due to 
this, no external surge protection is required with 
the disk drive. The drive's device number can easily 
be changed by simply removing one or both of the 
convenient jumper plugs on the main circuit board 
(item 2, photo 3). There are no wires or circuit 
traces to cut here. 

The large disk, with the radial strobe markings, 
is a quartz- locked, brushless dc disk motor, which 
spins the disk at a very constant 300 revolutions per 
minute. The read/write head stepper motor (item 3, 
photo 3), which positions the read/write head to the 
required track, is slightly above and to the rear. 
Each drive module has its own control electronics, 
which simplifies the tasks performed by the main 
control board. 

As with all Commodore peripherals, the MSD 
SD-2 is an "intelligent" drive. The DOS is com- 
pletely contained in 16 kilobytes of ROM on the 
main circuit board. The heart of the SD-2 control 
system is a 6511Q microprocessor. DOS work space 
and buffers are provided for by 6 kilobytes of on- 
board RAM. 

The individual drive units can easily be removed 
(photo 4) for servicing by simply extracting two 
screws from the bottom of the case. Two cable con- 
nectors at the back of the unit complete the job. 
Once removed, head cleaning can easily be done as 
described in Inside the 1541 Disk Drive: A Guided 
Tour (February Ahoy!). The pressure pad arm 
assembly is item 1, in photo 4. 

At this point the drive numbers can be changed 
as mentioned earlier. Each drive unit has a push on 
connector (item 2, photo 4) which sets it to drive 
or to drive 1. By simply resetting these connectors, 
the unit can be configured with drive to the right. 
The drives should be left in their original physical 
position, since the order in which they are con- 
nected is important. 

The overall operation of the drive is slightly 
noisier than the 1541. One noise, however, is con- 
spicuous by its absence. The drive never makes the 
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loud chattering sound, associated with the 1541, 
whenever a disk is formatted or a disk error is de- 
tected. This is because head position is optically 
sensed by the MSD drive. It is not necessary to 
knock the head positioning assembly against a fixed 
stop to determine its location. This feature should 
significantly lengthen the interval between head 
alignments. 

MORE ON THE DOS 

The MSD SD-2 DOS is 100 percent compatible 
with all Commodore disk operations and formats 
associated with the CBM 4040, 2031, 1540, and 
1541 disk drives. All Commodore DOS commands 
are fully implemented. The only problems we en- 
countered dealt with software which made direct 
calls to routines within the DOS itself. For exam- 
ple, the copy protection on the Electronics Arts 
Software series seems to use direct calls, as these 
disks would not load on the MSD. This is really 
not a significant drawback. There is no guarantee 
that future versions of the Commodore 1541 ROM's 
will maintain this compatibility either. 

More important to compatibility is the availability 



of the serial bus. Absolutely no additional hard- 
ware, or software, is required to access all of the 
dual drive capabilities with a VIC 20 or a Com- 
modore 64. Thus all of the computer's memory is 
available for application programs. 

The SD-2 really shines when used with software 
which recognizes a dual drive, such as Calc Result 
Advanced. The first time we used this program, it 
took nearly one hour to initialize the program disk 
and create a backup copy. With the SD-2, the entire 
process took less than five minutes! 

The Commodore CP/M card works very well 
without the need for an IEEE-488 adaptor. Simply 
plug in the CP/M card and the SD-2. Run the 
CONFIG utility to set up for a dual drive and you 
are all set. There is no need to reduce the size of 
CP/M to 44K from the 48K maximum as described 
in the Commodore 64 CP/M Operating System 
User's Guide. 

Unfortunately, these advantages do not extend to 
software packages which only recognize the existence 
of the 1541 single drive. These programs presume 
that two drives will exist as device numbers 8 and 
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TELSTAR 64 

Sophistrcaled Tefmfnal Communications Cartridge for the 64. 

■PfO- 10D OOO CP D1 D2 BELL 12:30:00 10:14:36 

(TELSTAR's Status Line) 
Oon'i settle for less than the besti 

• Upload/Download to/(rom disk or tape. 

• Automatic File Translation. 

• Communicates in Industiv Standard ASCII- 

• Real-Time Clock plus Alarm Clock. 

• Line editing capability allows correcting and resending long command lines. 

• 9 Quick Read (unctions. 

• Menu-driven. 

• Similar to our famous STOP Terminal package. 

• Wtorks with Commodore Modems and supports auto-dialing. 

The best feature is the price - only $49.95 (Cartridge and Manual) 



Machine Language Monitor Cartridge 

for the CBM 64 

More than 20 commands allow you to access the CBM 64's Microprocessors 
Registers and Memorv Contents. Commands include assemble, disassemble, 
registers, memory, transfer, compare, plus many more. 

Someday every CBM 64 owner will need a monitor suet) as this. 

Cartridge and Manual — $24.95 



dK in 30 Seconds 

for your VIC 20 or CBM 64 

If you own VC JO w C8M M and hovB been concsined 

about lh« hah cosi o( disk to slwe yoyr pfoororrw on 

woiry youiseit no tofiget Now Ihwes the WSBn The RASSir 

COfT*} ift cortiidga ond at a much, m^>ch lowe^ pfice 

ttxjrtheovwapedis* Arvdspead IhaisonetajHWBSH 

With the RASBir you con toad ond stoie on you' CBM 

dolDsetle or 8K program m ol most 30 seconds comtwed 

to the current 3 minutes o< a VC 20 01 CAM 64. olmoi) OS 

tos) OS the 1M< disk drive 

The DMin IS east to mjioll. allows one to Appeix) 

BosJC Progroms. woiks with o< wrthoul Enponsion 

Memont ond provides two doio dte modes The 

BABBIT IS nol only losl but fBlrable 

(The Sodbit (or the WC JO conkjins on expansion con- 

nocKy so you con simuHaneously use your memofy ooad, elc I 




$39,95 



S59.95 



K^ AP THENST 

I V l#lW FOR LESS! 

For CBM 64, PET, APPLE, and ATARI 

Now you con riov* Ihe some pioleniaiiailv deugned Moos 
AsiemblsCEdiKK as uisd on Spoce Shuttle proiscti 

• Designed to rmpfowe Piogrammei ProduCttvily 

• Similar synJan ond comrrioryjs - No need kj releofn peculioi 
syntoxes ond commands when you oo Irom f^T hj APPIE to 
ATARI 

• Coresident AssemtHei/Edrlff-NoneedlokxidtheEcSloi, then 
the Auemblef. then ttw Editor, etc 

• Also includes Myd Piocessoi. Mocating loader, and much 

ITKXe 

• POwsrtuI Edilor. Mociot Conditional and mteioctiwe 
Assemtty. and Aulo ' rero poge oddressir^ 

Slill nol convinced, send (or ouf tree spec sheen 




3239 Linda Dr. 
Winslon-Salem.N.C. 27106 
(919)924-2889 (919)748-8446 
Send tor free catalog! 
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IVIATH 
DEFEIVDER 

for the C-64 and VIC 20 



By Andy 

ath problems are falling from the sky! 
You, as the lone defender, must posi- 
tion your cannon and blast the prob- 

lems with the right answer. If just 

one of the problems lands on your base, all is lost! 

This math game allows the user to pick from addi- 
tion, subtraction, multiplication, or division, alone 
or in any combination. Three skill levels (related to 
the speed of the problems' descent) are available. 
Two versions are included here, one each for the 
VIC and the 64. VIC players must ward off three 
problems at a time, while 64 users battle five! Points 
are awarded for each correct answer, and are de- 
ducted for each 'miss' 

Other than the number of problems falling, the 
only major difference between the two versions stem 
from the different sound addresses and screen widths. 
The title page is also a little fancier for the 64, and 
is located in a subroutine at the end of the program. 

When the game is loaded and run, the title page 
will be followed by a menu of problem types. Press- 
ing "Y" will include the indicated type, and 'N" 
will exclude that type. The next menu determines 
the skill level — the more advanced your skill level, 
the faster the problems will fell. The "F" key is 
used to move the marker ("cannon") to the left, and 
the "J" key moves it right. I experimented with sev- 
eral combinations of keys, and found that these par- 
ticular two provided the best compromise between 
speed of moving the marker and protection from ac- 
cidental number entries. The hands are centered on 
the keyboard very nicely. Other keys can be used, if 
you wish, by changing the values in line 109. Once 
the marker is situated under the desired problem, the 
user can enter the answer, followed by the RETURN 
key. There is no delete function (sacrificed for 
speed), so typos must be entered as incorrect an- 
swers. An incorrect answer results in a short buzz, 
and play continues after the score is decremented. 



Van Duyne 

Correct responses cause the problem above the 
marker to be "blown up", and a new one will take 
its place at the lop of the screen. (Note; once an an- 
swer is begun under a particular problem, a RE- 
TURN must be pressed before the marker may move 
again — you cannot leave half-finished answers lying 
about the screen!) Play will continue until one of the 
problems make it to the baseline unsolved. 

There are a few other aspects you may wish to 
modify to suit your needs. The speed of descent for 
each skill level is determined by lines 1500-1504, 
with the equation in 1504 actually setting the value. 
You can also adjust the parameters of the math prob- 
lems in the routine in lines 4048. The problems are 
derived from two seed numbers generated in line 42, 
which creates two numbers in the range 0-9. Actual 
problem formation for the types is handled by the 
following lines: 



type 


line(s) 


addition 


43 


subtraction 


44 


multiplication 


46 


division 


47,48 



Entry of either of the programs is rather straight- 
forward, with no special typing problems involved. 
However, pay particular attention when typing the 
lines to establish the placement strings (14-17). If you 
prefer not to type either of the programs, I will 
make a copy for you. Send $3.()0, a blank cassette or 
formatted disk, and a self-addressed stamped mailer 
to: 

Andy Van Duyne 

Box 226 

Norwood, NY 

Please be sure to specify which version you would 
like (VIC or 64). 

SEE PROGRAM USTINGS ON PAGE 72 
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TrzAmrnc noon cuasoa 

Continued from page 38 
Now we print the space, which will erase the as- 
terisk and position the cursor in box 2 again. 



Printing a space 
here erases -► 
asterisk 



1 


2 


3 


4 



^ Cursor is 
again here 



We want the next asterisk to appear in box three. 
In order to get the cursor there, we will print a cur- 
sor down (box 4), a cursor left (box 3), and then 
print an asterisk. 



Now cursor is 
here to print 
asterisk 



1 


H 


'* 


4 



Cursor is here 
— after printing 
asterisk 



The cursor is now where we want it to repeat this 
sequence again. In the program below, a FOR... 
NEXT loop will repeat this procedure 20 times to 
move the asterisk down the screen. 

10 PRINT" {SC){CR) {CR}{CR}{CR}{CR) 

{CR}{CR){CR)(CR){CR1{CR)"; 

20 FOR X = 1 TO 20 

30 PRINT"* (CL)"; 

40 FOR Y = 1 TO 40 : NEXT Y : REM 

DELAY LOOP 
50 PRINT" {CD}{CL1"; 
60 NEXT X 
70 END 

Using the techniques we have described here, you 
can move characters in any direction on the screen. 
With a little creativity, you will achieve impressive 
results. D 



Continued from page 41 

in the Trump spot on the screen. Trump is really 
the suit of that card. If the suit of diat card is 
hearts, all hearts are Trump for that hand. Trump 
can beat any card except a higher Trump card. 

Each round consists of one play by each player. 
The player who leads sets the suit to be followed. 
The player who makes the second play must do one 
of the following things to win the round: 

1) Play a higher value card in the same suit 

2) Play a trump card 

If the second player can't do any of the above he 
should leash. To leash is to play a card that has no 
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point value. It is a good strategy to try to let the 
computer lead, so you can pick up points when it 
leashes. You might have a big point value card in 
that suit in your hand that you can play to win the 
round. 

Brisk is a totally random game; no two games 
will ever be the same! Brisk has a 75% win ratio. 
Do you think you can do better? 

For readers who are also programmers, here are 
some of the program's more interesting aspects: 

Line 6 Sets the screen colors 

Line 7 Sets the arrays up to hold the 

value of each card 
Tbms on S.I.D. (Sound Inter- 
lace Device) 

Sets all the values of DIMC$— 
to null values. This array is 
used to hold the cards that are 
played in each hand 
Deal the first seven cards of 
each hand 

Deal the cards during the hand; 
also check to see what cards 
have been played 
Randomize a value which rep- 
resents a card 

Checks to see if this card has 
been played; if so we go back 
and get another number 
Determine who won the last 
round and who should be dealt 
first 

Check to see if the last card in 
the playing deck has been dealt 
Determine end of the first hand 
and start of the second 
Read in the values of each 
playing card 

Enable the player to play a card 
The complete brain of the com- 
puter. From this subroutine all 
the plays the computer can 
make are determined 
Determine who won the last 
round played 

Give the points to whoever won 
the last round 

Set die values of who won the 
round so that on the next deal 
the player who won will be 
dealt first 
Those readers who don't care to type in the pro- 
gram may send $5.00 and a stamped, self-addressed 
envelope to Joseph Fusco, c/o Icicle, 1474 Hylan 
Blvd., Staten Island, NY 10305. A copy of the pro- 
gram will be sent promptly. Specify whether 
you require disk or tape! D 

SEE PROGRAM USTING ON PAGE 76 



Line 11 



Line 50 



Lines 100-143 
Lines 150-250 



Line 200 



Line 210 



Lines 230-240 



Line 247 

Lines 300-330 

Lines 1000-1030 

Lines 8000-8999 
Lines 10000-10999 



Lines 12000-12650 
Lines 20000-21110 



Lines 25000-30600 
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IFR (FLIGHT 
SIMULATOR) 

Academy Software 

C-64 (disk), VIC 20 (cartridge); 

joystick 

"Pilot to bombardier! Pilot to 
bombardier!" Er, ah— no— this is 
a Cessna isn't it? 

IFR Flight Simulator is not a 
game. It is a simulation of flying 
a small plane under Instrument 
Flight Rules (IFR). That means 
the graphics consist of a full- 
screen instrument panel and the 
controls are much more involved 
than pushing a joystick. Actually, 
you could almost call this program 
a flying tutorial. All that is miss- 
ing is a detailed explanation of 
flying (which you could probably 
find at the local library). 

So, if you are a budding young 
pilot, or if the guidance coun- 
selor said you're really cut out to 
be a smuggler, let's fly. 

Once the program loads, you 
see all the instruments used for 
IFR flight— artificial horizon, al- 
timeter, compass, tachometer, fuel 
gauges, glide slope localizer, and 
indicators for airspeed, vertical 
speed, turn and bank, flaps, and 
landing gear. You will also appre- 
ciate the LX)RAN navigation sys- 
tem which will show your coor- 
dinates. If you do not know what 
to make of all this, read the four- 
teen pages of single-spaced in- 
structions. Before you manage a 
landing (as opposed to a crash 
and burning), it will all make 
sense. 

The object of IFR Flight Simu- 
lator is to fly to each of the four 
airports shown on the main map. 
Five detailed maps will help you 
figure out approaches and routes. 
With nine different skill levels 
and elapsed time to worry about, 
you will put in many hours mas- 
tering this program. 

At higher skill levels, there will 
be much more wind to blow you 




offcourse. You will also have to 
land at a tower rate of descent 
and airspeed. More difficulty? 
Set the wind turbulence. In bum- 
py air, the instrument panel on 
your screen will really start to 
hop around. 

When you get proficient at 
standard takeoffs and landings, 
you can try the mountain pass. I 
made it through once, but I used 
so much fuel setting up that I 
crashed on the other side. Al- 
though you are not allowed to do 
aerobatics (the artificial horizon 
goes wacko), you can go into 
spins. Is that vertigo I feel? 

Since this is a real time (almost) 
simulation, you will have plenty 
of time to play with the controls 
which include a joystick and fif- 
teen different keys. Operating 
throttle, nose trim, landing gear. 




IFR's graphics include a realistic 

full- screen instrument panel. 
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flaps, brakes and steering (on the 
ground), and tuning the instru- 
ment landing system and automa- 
tic direction finder only gets hec- 
tic in the last moments of a land- 
ing approach. 

If you do not have time for the 
full flight between airports, you 
can use the program's editing ca- 
pabilities to put yourself any- 
where on the map, flying in any 
direction you want. Just be care- 
ful to give yourself an airspeed 
above the stall speed and an alti- 
tude above the local terrain. Gets 
messy otherwise. 

The plane has a slow, kind of 
mushy response to the controls. 
This is definitely not like chasing 
Klingons, If you have banked left 
from your course, you will have 
to bank right exactly the same 
amount to get back on a tine par- 
allel with the original. 

IFR Flight Simulator is a won- 
derful learning device for would- 
be pilots. Even my pilot friends, 
for whom this was nothing new, 
enjoyed it. Not a game, however, 
this program will send you back 
to study the instructions several 
times. The documentation states 
that this is not a substitute for 
real flight training, but it can cer- 
tainly help you become confort- 
able with a lot of the basics. 

Academy Software, P.O. Box 
9403, San Rafael, CA 94912. 

—Richard Herring 

EARLY GAMES FOR 
YOUNG CHILDREN 

Counterpoint Software, Inc. 

C-64, VIC 20 

Disk, cassette; keyboard 

Moms, take note! Absolutely 
and positively the only thing 
wrong with this preschool program 
is its boring name! Even I, who 
usually cast a jaundiced eye at 
such glamorous-sounding games 
as Spider Attack and Galaxian 
Explosion, found myself sitting 
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down to review Early Games with 
less than enthusiasm. It sounded 
so blah! But within minutes I was 
delightfully surprised at this cle- 
ver and practical program that 
will be a real treat for the com- 
puter fledgling in your home. 

There are nine different educa- 
tional games, introduced by (at 
long last for the four year old 
who can't read!) a Picture Menu. 
The menu consists of a series of 
pictures representing each of the 
different games. All the child has 
to do is press any key and voila! 
he's ready to play. There is also 
an articulate pamphlet that ac- 
companies the program. 

Here's whats in store for your 
youngster. He'll match big bright 
numbers displayed on the monitor 
with the proper key on the com- 
puter. In another game he'll count 
the colorful blocks displayed on 
the screen and press the correct 
number There is a game in 
which he will add, and one 
where he'll subtract numbers be- 
tween 1 and 9. He will also learn 
to identify shapes, determining 
which one of four shapes dis- 
played is different. Cute graphics, 
too! 

Having mastered all that, it's 
time for alphabet soup, where 
your child has several different 
ways to help him learn his 
ABC's. He'll match large colorful 
letters on the monitor with the 
identical letter on the keyboard. 
There's a game designed to help 
children learn the order of the 
letters in the alphabet. For exam- 
ple, the letter "A" is shown, the 
computer asks for the next letter, 
and so it continues through the 
entire alphabet. If he answers in- 
correctly, the computer displays 
the alphabet up to the letter in 
question. If the next response is 
also incorrect, the computer then 
flashes the correct answer. The 
added bonus is that as he learns 
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Addition and subtraction exercises, 

the alphabet he also learns the 
keyboard. True, he might not be 
typing 60 words a minute at the 
end of the game, but with prac- 
tice, who knows?!? 

There's surely one thing he'll 
be able to do and that's to type 
his own name. All mom or dad 
has to do is enter the child's 
name in the computer The moni- 
tor will display the name in nice 
large letters, and the computer 
then asks the child to type in his 
name. This may be a piece of 
cake for Ann or Tom, but think 
of Geoffrey or Anastasia! Kids 
love this game, and why not? Do 
you know any red-blooded Amer- 
ican child who doesn't like to see 
his name in print? 

The grand fmale of Early 
Games is my out-and-out favorite. 
It's called Picture Draw, another 
less than scintillating title. But 
that's exactly what the child does: 
draw pictures by pressing differ- 
ent keys. The position of the key 
on the keyboard determines which 
direction is drawn, i.e., upper 
keys draw up, corner keys go dia- 
gonally, etc. By pressing the 
space bar the child can even 
change colors! It's a barrel of 
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Which shape displayed is different? 
READER SERVICE NO. 2 



fun, and I enjoyed it as much as 
my children did. Granted, it 
might not be as educationally en- 
riching as the number and letter 
programs, but it's bound to excite 
your child to the limitless plusses 
and uses of a computer. 

—Valerie B. Tamis 

THE GAME SHOW 

Advanced Ideas 
Commodore 64 
Disk 

The Game Show, a clone of the 
old TV series Password, brings 
the thrill of the popular show 
back into your living room. Even 
better, it offers an entertaining 
way to introduce your children to 
a wealth of factual information. 

Just to refresh your memory— 
those synapses get weak after so 
many hours in front of the tube- 
Password is a game for two teams 
of two players each. The modera- 
tor shows one player on each team 
a target word. That player then 
gives short clues to his partner. 
Teams alternate turns until one of 
the partners guesses the target 
word. 

That is a description of The 
Game Show too, only the parts 
of the moderator and the clue- 
giving partners are played by an- 
imated characters on your com- 
puter screen. The two computer- 
ized players— Joe and May, the 
instructions call them— have real 
personality. At the beginning of 
the game the moderator intro- 
duces you to your onscreen part- 
ner who waves at you. From his 
raised podium, center stage, the 
moderator then turns and prompts 
each player as Joe and May lake 
turns giving clues. Clues appear 
in cartoon bubbles above the 
players' heads while their lips 
move. If you guess a correct an- 
swer, your partner waves his arms 
with joy. 

When you run the program, it 



will ask for your name and the 
name of a second player if there 
is one. Then it aslts if you want 
onscreen instructions. Read those 
and pick one of the subject areas 
for your game. Then the modera- 
tor comes on and, in those little 
bubbles above his head, gives you 
instructions on playing. Advanced 
Ideas has this instruction business 
down pat. 

So how is this "game" educa- 
tional? Basically, it is heavily into 
paired associate learning. In other 
words, if you want a kid to learn 
facts about a historical event or 
scientific phenomenon, you build 
these facts into the game as 
clues. The subject areas that 
come with The Game Show are 
advanced vocabulary, animals, al- 
gebra, computer terms, sailing 
terms, constitution, nursery 
rhymes, biology, famous cities, 
and airplanes. There are also six 
categories of words that start with 
the same letter. Advanced Ideas 
promises to make additional sub- 
ject matter disks available (for 
$20 a crack). 

If you do not like these cate- 
gories, build you own. The Game 
Show comes with an authoring 
system. Not to worry— this re- 
quires no programming. It is as 
easy to use as the instructions. 
You can format a blank disk, cre- 
ate new subjects, and change or 
delete old subjects. When you 
create a new subject you must en- 
ter the target words and as many 
clues as you choose for each one. 
Enter the clues in the order you 
want them given; the program 
will not scramble them. 

One aspect I really like is the 
program's ability to accept alter- 
nate target words. If you want 
both "krypton" and "Kr" to be 
correct answers in your chemistry 
game, type them both in. When 
you change an old subject area, 
you can delete any one or more 



target words, edit targets and 
clues, add new targets, add new 
clues to old targets, or list the 
whole shebang to the screen or 
printer. 

Easy as this authoring system is 
to use, I have to admit that it is a 
bear to write new subjects. I wish 
that Advanced Ideas would author 
a long list of subjects and sell 
one-page printed copies for a 
buck apiece. Then we users could 
order the ones we want and type 
them in. 
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Employs paired associate learning. 
READER SERVICE NO. 29 

The Game Show is one of those 
pieces of educational software 
that are deceiving because they're 
so much fun. By manipulating the 
difficulty of the subjects and 
clues, you can make this program 
appropriate for any age group. 
The presentation, although it is a 
single graphics screen is appeal- 
ing. And you can really learn by 
pairing descriptive facts with an 
object or term. At $40, however, 
this is not as good a buy as Ad- 
vanced Ideas' other educational 
program. Wizard of Words, which 
includes five games on one disk. 

Advanced Ideas, 2250 Ninth 
Street, Suite 104, Berkeley, CA 
94710. 

—Richard Herring 

THE VOYAGE OF 
THE MAYFLOWER 

Cadmean Corporation 



C-64 

Disk; keyboard 

The Voyage of the Mayflower is 
a simulation, complete with 17th- 
century music, of the pilgrims' 
trans-Atlantic journey. Other than 
an 11 X 16 map and some dia- 
grams on the back of the box, all 
the documentation is in the pro- 
gram. When you start the game, 
you'll read two screens of histori- 
cal background. Then you will get 
to pick one of five skill levels or 
review a list of 100 terms relevant 
to the simulation and a bibliog- 
raphy of five booLs and two arti- 
cles on the history of the voyage. 
The word list is just that— a list. 
The words are not defined, or 
even grouped into classes (like, 
the types of sails). 

Each level of The Voyage of the 
Mayflower introduces new factors 
which the player must consider. 
Level 1 could have been left out 
of the game tor all it's worth. 
Your ship appears on a map of 
the Atlantic with the two Ply- 
mouths clearly indicated. Type 
"go" to set sail. Your ship jumps 
a short distance westward. Type 
"go" again. Another jump. Even- 
tually you hit North .\merica (or 
sail under North Amer'ca) due 
west of where you started. No 
heading commands are accepted. 
At any point, type "land." The 
game ends, with no score, and re- 
turns you to the main menu. Here 
is a whole level of the game just 
to teach you how to type "go." 

Levels 2 through 5 are more 
entertaining. After the instructions 
at each level, you load the May- 
flower to its maximum tonage. In 
level 2 you just load food, but by 
level 5, you are juggling weights 
to get the best combination of 
fresh food, salted food, preserves, 
water, spirits, five kinds of ani- 
mals, three different feeds, stores 
and cargo. During the voyage, you 
can ration food and water or eat 
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the animals. After ten days or so 
without rations, the crew will be 
too weak to sail further. 

Once the Mayflower is loaded, 
you will get a status display. It 
shows your remaining supplies of 
food and drink, the ship's location 
in longitude and latitude, the di- 
rection and knots of the current 
and wind, your ship's heading and 
hull speed, and your days at sea 
and miles sailed. The twelve sail- 
ing commands you can type in are 
also given. During most of the 
game, you will see a map of the 
blue Atlantic bounded by the 
green borders of North America 
and Europe/Africa. 

Experiment with different head- 
ings to gain the maximum benefit 
of wind and current. And avoid 
the North Atlantic storms; the 
screen will flash as the sails of 



NEW 



C-64 



SAIL TO AMERICA 

A totally new computor •xperlence 

• Paranu Tell your kids Cadmean's The 
Voyage of the Mayflower has all the 
color, sound and excilement they love. 
Challenge the mighty Atlantic, defy its 
foaring storms and bring your passen- 
gers safely to the new world. There's 
never been an experience tike it. Any- 
where. 

• KIdt Tell your parents The Voyage of the 
h^ayflower is a terrific learning adven- 
ture. Recreate the hazards and drama of 
the first Pilgrim voyage. Learn about sail- 
ing strategy, weather, navigation and 
history. The more you know the more fun 
it is. Every level is a unique experience 
whether you're 6 or 60, Unforgettable. 

• Famllln Pit your imagination against 
the world as the Pilgrims knew it. Share 
the exciting Journey to a new life in a new 
land. Risk the danger and feel the joy. 
Learn together how the Mayflower sal led 
into history on the courage of those few 
who dared. 

All this and a FREE 11 x 16 Poster for only 
*29. ' 

School and dealer Inquiries welcomed 
DISK ONLY 
ORDER NOW. FREE shipping for fi/laster- 
Card and Visa orders. Call (313) 994-0845 
Day or Night. C.O.D.. checks, money or- 
ders add $3.00 shipping. 

CADMEAN CORP., 
309 Koch, Ann Arbor, Ml 48103 

Rsader Sarvics No, 3S 
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your ship are blown out. Success 
can only be guaranteed if you 
learn where the Sargasso Sea, 
Gulf Stream, and other major cur- 
rents are. 

You are encouraged in The Voy- 
age of the Mayflower to play with 
variables as much as you want. 
Only when you type "go" does 
the time pass and the food dimin- 
ish. When you finally type "land" 
you get a score based on how 
much food and drink you had left, 
how many days the crew was on 
rations and how many degrees you 
were from Plymouth, If you type 
"land" even when you are in the 
middle of the Atlantic, the game 
will end, giving you a huge nega- 
tive score for being so far from 
Plymouth. 

The goals of this educational 
game are good, but it is hard to 
- say that they have been met. If 
you get caught up in the game, 
you will certainly be encouraged 
to learn about history and sailing, 
especially in the Atlantic. But a 
child beginning with Level 1 may 
become bored. There is no easy 
way to get complete instructions 
and the graphics quickly become 
uninspiring. The word list is nice, 
but what are we to do with it? In 
a classroom, maybe the teacher 
could structure some activities, 
but that is a lot to ask of a par- 
ent. While a child certainly could 
learn from manipulating the vari- 
ables in this game, I doubt that 
many kids will find it interesting 
enough to pursue on their own. 

Cadmean Corporation, 309 
Koch, Ann Arbor, MI 48103. 

—Richard Herring 

CA.R.S. 

New Leaf, Inc. 
C-64, VIC 20 (+24K) 
Disk, Cassette 

Whether you own one car or a 
fleet, Car Analysis Reporting Sys- 
tem (CA.R.S.) will enable you to 



analyze your spending on each car 
for business or tax purposes, tell 
when tuneups and overhauls are 
due, or just keep the best records 
on your block. 

CA.R.S. is actually a set of 
programs. Backup lets you easily 
and quickly (in about eight min- 
utes) make a copy of your 
C.A.R.S. disk. Don't break out 
your eyepatch and wooden leg just 
because this program is easy to 
copy. It also comes with an in- 
genious little device that plugs 
into either joystick port; without it 
the program won't run. 

All you aspiring software au- 
thors, pay attention. This pro- 
gram's manual is excellent. A use- 
fijl table of contents is included, 
as well as a complete index. The 
first chapter is a tutorial; next 
comes a step-by- step description 
of each feature, in the same order 
as the program's menus. 

You enter expenditures in six 
categories— fiiel, maintenance, 
tuneups, depreciation (or car pay- 
ments), taxes, and insurance. Re- 
fuel ings must be entered in order. 
C.A.R.S. will not let you create a 
new record with a lower odometer 
reading or an earlier date than the 
previous record. If you enter only 
the month and year of a refueling, 
the program will prevent you from 
entering any other data for that 
month. 

You can go back later and look 
at each entry. Find an error and 
you will have to delete the entry 
and type it in again. Be especially 
careful with depreciation, taxes, 
and insurance. CA.R.S. rolls aJi 
your entries into one category 
called Ownership. Enter one of 
these records incorrectly and 
you'll have to reenter them ail- 
that is, if you catch your error. 
Since you cannot review the indi- 
vidual entries you made as depre- 
ciation, taxes, and insurance, you 
have no way to double-check your 
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data. 

When your data is all in, you 
can produce nineteen different bar 
graphs on the screen or printer. 
Fifteen of these are different ways 
of looking at fuel consumption 
and cost. Why would you want alt 
these charts? Got me. The manual 
gives uses for only a few. Aver- 
ages are the best indicators of the 
need for a major overhaul, and 
rolling averages can show when 
your car needs a tuneup. Total 
cost per mile at each refueling is 
the chart you fleet owners will 
use to compare vehicles and de- 
termine when to replace them. 

C.A.RS. has several shortcom- 
ings I have not mentioned yet. No 
record for one car can have over 
thirty-six entries. When you enter 
more, the oldest entries are sum- 
marized by the program. If you 
buy gas once a week, your record 
won't last out the year. A major 
flaw is that once you have loaded 
a record, you cannot, even by fol- 
lowing the directions, clear the 
data from memory. 

C.A.R.S. comes with a separate 
depreciation program. You can 
run the value of any item through 
standard three, five, or seven year 
depreciation schedules and get 
values for each year. 

There are several features about 
C.A.R.S. that I like. When you 
update a t'lle, the program, rather 
than overwriting the old file, re- 
names it and saves it as a backup. 
The menu program lets you see 
every file on the disk in alphabet- 
ical order and run one by pressing 
a function key. During data entry, 
the program will automatically 
convert between liters and gallons. 
And most commands require only 
a single keystroke— you won't 
wear out the < RETURN > key. 

Still, I cannot justify this pro- 
gram. If I decided to keep de- 
tailed records, I would use a good 
database program. Then each item 



changed in a tuneup or repair 
could be listed individually. True, 
that would make it harder to get 
all those nifty graphs. 

C.A.R.S. really seems like it 
was developed for business use. If 
you have just one vehicle, will 
you take the time to run the pro- 
gram every time you buy gas or a 
new set of wiper blades'? Maybe 
you should use that time to tune 
up your car. If yours is already 
tuned, you can tune mine — it's 
perpetually in need of work! 

—Richard Herring 

MOUTHPIECE 

Event Horizon Software 
C'64 
Disk 
If you own a VIC or a 64 and a 

modem, you have probably enjoyed 
some successful telecomputing. 
Most likely you used the standard 
Commodore software. Term 64, 
or another "dumb" terminal pro- 
gram. This type of program al- 
lows you to send and receive in- 
formation, but does not permit 
you to tap the other capabilities of 
your computer. 



MOUTHPIECE 
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"Smart" terminal programs, 
those which take advantage of 
your computer's capabilities, add 
a new dimension to telecomput- 
ing. The best of the "smart" pro- 
grams has arrived in a nifty pack- 
age called Mouthpiece ($39.95). 



WANT TO KILL A 
COWERSAT[ON' 
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COLON AND 
RECTUM CANCER 
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SEE' EVEN THOUGH 
IT'S ONE OF THE 
MOST TREATABLE , _^.,t 
KINDS OF , 1 DOf^J 

CANCER .yy^t^^ 

' TO TALK 

ABOUT 




WELL THEN. AT 
LEAST READ ABOUT IT., , 
ABOUT A SIMPLE 
TESTING PROCEDURE . . 
ABOUT HOW EARLY 
DETECTION AND TREATMENT 
CAN SAVE LIVES . 
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LET'S TALK. For a free 
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Now your "modem moments" 
can be magically enhanced by a 
terminal program with many pow- 
erful and easily obtained features. 

After loading Mouthpiece you 
are greeted by a healthy menu 
clearly displaying thirteen lettered 
options, each quickly engaged by 
striking the Commodore logo key 
and the appropriate lener. Fea- 
tures include; color selection, du- 
plex toggle, macro definition, cur- 
sor select, data parameters, and 
audio parameters. A time-saving 
advantage built into the program 
pennits menu commands to be 
called directly from terminal 
mode. 

The terminal screen presents an 
inverse bar running across the top 
of (he screen. Called the "status 
bar," it is likened to a dashboard 
for the Mouthpiece driver. The 
bar displays the duplex setting, 
full or half, status of the review 
buffer, and a running indicator 
showing the exact number of 
bytes of memory available for 
capturing or downloading text or 
programs, about 30K. 

Additional functions are provid- 
ed for control of the Mouthpiece 
review or capture buffer. This 
feature is what pennits you to 
download— bring text and pro- 
grams into your computer's mem- 
ory and then either save them to 
disk or print them. Once a pro- 
gram has been received, a simple 
command allows you to 
"KRUNCH" it into a program 
file. Normally, the job of then 
creating text files for programs 
you wish to upload becomes a 
chore. However, Mouthpiece lets 
you bring the program file into 
your 64"s memory with a "Load 
Buffer" function. Then, by hitting 
a key designated "Create Text 
File," the text file is automatical- 
ly produced and ready to send via 
the "Send Buffer" command. 
With a 64, a modem, and 
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Mouthpiece, your computer be- 
comes a smart terminal and you 
become a potent and capable user. 
The storehouse of knowledge, 
trivia, and news available through 
information utilities is yours to 
receive, save, send, and enjoy. 
Why make a sman machine dumb? 
Mouthpiece unlocks the potential 
of your computer and mcxlem. 

Event Horizon Software, P.O. 
Box 1327. New York, NY 10028. 
Phone number is 212-535-0697; 
CompuServe user ID is 72436, 1456. 
—Kenneth C. Holvig 

THE INSTA-FAMIU 

Insta Software 
C-64 

Cartridge, disk 

Five programs make up the In- 
sta family of applications software, 
which rarely lives up to its name. 
Insta-Writer is the "papa," a car- 
tridge-based word processor with- 
out which you can't use /«- 



sta-Mail or Insta-File. The best 
thing going for Writer, unfortun- 
ately, is that you don't have to 
wait for it to load from disk. It's 
a survivor from the Stone Age of 
C-64 software, a line-oriented pro- 
gram that displays a number on 
the left side of the screen for each 
line of text. A maximum of 62 
lines are permined in RAM, the 
equivalent of a single typewritten 
page. 

After you've filled a page, it 
must be saved before proceeding 
to create page two. The second 
page is then saved as page two of 
the same document. When it's 
time to print, you have to load 
page one and print it, then load 
page two, and so on. This makes 
Imta-Writer extremely inefficient 
for people writing anything longer 
than a letter to the manufecturer 
to demand a refund. 

In all fairness, it's easy to use. 
Control-key combinations and the 




The Insta FamUy also includes filing, accounting, and graph programs. 
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function keys fecilitate common 
text-editing operations in a logical 
manner. Cut and paste operations 
are executed l^ indicating the 
numbers of the lines to be manip- 
ulated, and a text buffer allows 
you to move or copy text from 
one page to another, even though 
you can only have one at a time 
in memory. But you can't embed 
control codes to coax underlining, 
bold&ce, and other capabilities of 
your printer; there's no Search 
and Replace; and line spacing is 
not adjustable. Give me a number 
two pencil and a napkin from 
Mulligan's Bar any day of the 
week! 

Insta-Mail is on disk, and loads 
automatically when you press 
"control-5" from Insta-Writer's 
main menu. Creating a mailing 
list is foolproof: just fill in the six 
blank lines that are prefabricated 
to hold last name, first name, ad- 
dress, city, state, and zip code. 
The only problem lies in the fact 
that each line can't hold more 
than 2 1 characters. If a street 
name happens to be longer, or an 
address calls for more than six 
lines, forget it. Most mailing list 
programs allow you to determine 
the number of lines and their 
length. This one deprives you of 
that freedom, trading it off for a 
program whose files don't de- 
mand any advance planning and 
are easy to create and edit. 

Any of the six lines of informa- 
tion may be inserted into an In- 
sta-Writer letter by typing in an 
up-arrow followed by the number 
of the desired line. This facilitates 
churning out personalized form 
letters. (You can tap the space 
bar to move back and forth be- 
tween the mailing list and a docu- 
ment currently in the word pro- 
cessor.) It's also possible to sort 
addresses alphabetically on any of 
the six lines, and to select speci- 
fic addresses for insertion rather 



than the entire list. Mailing labels 
can be printed in a one-up format. 

Insta-File is also on disk. It's 
simple to create and enter files 
and records with this program, 
but it also restricts the user in 
practical applications. You can't 
name a file— instead, each must 
be dedicated to a specific disk. 
This means that the file on your 
tax records and the one on your 
car records will be on different 
disks, even though they may both 
be small enough to fit on one. 
The result? You wind up using 
more disks than necessary. 

Each file is preconfigured with 
records containing 63 fields. (You 
don't have to use all 63 in a file.) 
The snare is that each is set up to 
hold a maximum of 25 characters, 
so you can't fit as much informa- 
tion into any specific field. 
(Fields in most databases hold up 
to 250 characters.) Searching a 
file for specific records is ineffi- 
ciently implemented and often 
slow. At least you can insert data 
from any fields into a document 
created on the word processor, 
accomplished in the same manner 
as with Insta-Mail. Reports may 
be generated, even drawing upon 
bold, underline, and other printer 
features. The main problem with 
Insta-File and Insta-Mail is their 
dependence on an inferior word 
processor, and this side of the 
"family" suffers from severe 
genetic defects. 

Insta-Calc is a distant cousin 
that offers one distinct advantage 
—it interfaces with Insta-Graph to 
convert spreadsheet data into 
charts and graphs that can be dis- 
played or printed. {Calc is a car- 
tridge/disk package, and Graph 
comes on disk.) Even the infinite- 
ly superior Multiplan can't match 
this feat. Unfortunately, Insta- 
Calc's spreadsheet will accommo- 
date more than 30 vertical rows 
and 20 horizontal columns, mak- 



ing it impractical for large bud- 
gets. Only people desiring to plan 
their household budgets and small 
businesses with teeny, tiny busi- 
nesses will get their money's 
worth from this program. The 
functions are limited to exponen- 
tiation, summing, addition, sub- 
traction, multiplication, and divi- 
sion. Also, recalculation (after 
changing a number anywhere in 
the spreadsheet) is not automatic. 
You must manually request this 
operation, and perhaps jog around 
the block while waiting for it to 
be completed. Typical features 
such as copy, replicate, insert and 
delete rows and columns, and 
printing are standard, but unless 
your financial applications de- 
mand a miniscule workspace and 
you can't survive without 
Insta-Graph, keep your distance 
from this duo. 

The documentation for the en- 
tire series is uniformly deficient. 
Each program's features are de- 
scribed in detail, but in an unor- 
ganized manner and without true 
tutorials to gradually step you 
through the learning process. If 
you're already familiar with how 
each type of program works, you 
should be able to decipher the 
documentation. But, with so much 
quality software available else- 
where, why bother? 

Insta Software, 2158 Hathaway 
Street, Santa Ana, CA 92705. 

— 5/iay Addcans 

SUPERBASE 64 

Precision Software, Inc. 

C-64 

Disk 

Designed for serious business 
users, SuperBase 64 is based on a 
dual-control system: beginners can 
stick to the function keys listed on 
a pair of main menus until confi- 
dent enough to enter commands 
directly into the command line at 
the top of the screen. (The latter 
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method saves time by allowing 
you to enter a series of commands 
at once.) Incorporating numerous 
advanced features seldom seen in 
a database manager for the C-64, 
the program provides capabilities 
that can gradually be tapped as 
you gain familiarity with the fun- 
damentals. 

Unlike many databases, this one 
doesn't ask you to specify the 
length of fields or number of rec- 
ords when setting up a new file- 
just type in the field names exact- 
ly as they should appear in the 
records. At the beginning of each 
field, press a key to indicate the 
type of field (text, key, numeric, 
result, constant, or date), then 
cursor horizontally until the de- 
sired length is reached and hit re- 
turn. Each field can accommodate 
up to 225 characters, and a record 
may fill as many as four screens. 
For result fields, whose contents 
are automatically calculated on the 
basis of numeric data in other 
fields, a formula is typed into the 
command line. The appropriate 
field names are employed in this 
process, as "[Price] - [Deposit]" 
for the field titled Balance. The 
border, background, and text color 
of each file can be adjusted, with 
a different scheme for each file if 
you choose. 

SuperBase furnishes a full com- 
plement of methods for conduct- 
ing searches. Records can be loca- 
ted by specific key fields, or by 
looking for matching data in one 
or more other fields. "Greater 
than" and "less than" symbols 
come in handy when retrieving 
records based on data in numeric 
fields, and the equivalent of BA- 
SIC'S AND and OR functions are 
available. Numeric and date fields 
may also be searched for matches 
within a specified range. All 
searches are initiated by pressing 
a function key to enter that mode. 
A sub-menu shows the options, 

56 AHOY! 



which include moving directly to 
the first, last, previous, or next 
records, as well as adding, delet- 
ing, or updating a record. The 
"Match" option, used more than 
any other, involves typing the 
search criteria into the selected 
fields on a blank form. The first 
matching record appears, and you 
press "m" to see the next one. 
Whenever a record is on screen, a 
line of letters runs across the top. 
These are abbreviations for the 
commands on the search sub- 
menu, which can be executed by 
pressing the corresponding letter. 
An unusual and expedient op- 
tion called "Find" displays a list 
of the key fields of all records 
matching the search criteria. The 
list is automatically saved, and 
you can use the "Output" option 
to display or print all or selected 
fields from the records in the list. 
Commands indicating which fields 
to output and how they should be 
formatted are typed in on the 
command line. 

The ability to convert database 
records into a sequential file that 
can be read by a word processor 
is not uncommon, and SuperBase 
includes an Export feature for this 
purpose— and an Import option 
that will read a sequential file 
created by another database pro- 
gram. This means you can trans- 
fer existing files from your old 
database without having to key 
them in one at a time. 

One reason business users 
should consider upgrading to this 
system is that SuperBase is far 
more than just a filing system- 
it's actually a database program- 
ming language that's completely 
accessible by the user. Some BA- 
SIC keywords have been replaced 
by others devised especially for 
manipulating and managing data- 
base records and files. The "Pro- 
gram" option makes it possible to 
implement this language in a pro- 



gram that automatically executes 
an entire sequence of operations 
you regularly carry out on your 
files. You can even create your 
own menus and redesignate the 
function keys" operations. A li- 
brary of programs can be saved 
on disk, then loaded individually 
into SuperBase when needed and 
executed by pressing a single key. 
One of the new keywords, "link," 
establishes a link between any two 
files in a database (each database 
holds up to 15 files), and an ex- 
ample listing shows how to con- 
struct a program that will coax 
records in one file to automatical- 
ly update those in a different file. 
This is the closest thing to dBase 
II currently available for the Com- 
modore 64. Naturally, a founda- 
tion in BASIC reduces the amount 
of time required to get the most 
out of the programming option. 

Still not satisfied? There's a fea- 
ture called "Calc," which per- 
forms mathematical operations or 
BASIC functions on information 
stored in numeric and result fields 
of the current record. This facili- 
tates the equivalent of doing 
"what-if calculations on your 
database. "Batch" does the same 
thing for an entire file, or only 
those records selected from a key 
list predefined with the "Find" 
option. 

Error-trapping is excellent. Files 
are efficiently backed-up with a 
copy-disk option, and other stan- 
dard file functions can be execut- 
ed from the "Maintenance" sub- 
menu. The looseleaf, vinyl-bound 
manual includes a thorough tutor- 
ial, reference section, introduction 
to programming (with examples) 
and appendices. This wide range 
of features contributes to the long- 
term value of this program, and 
anyone planning on harnessing the 
C-64 in an office or business en- 
vironment can't go wrong with 
SuperBase. _shay Addams 
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FALCONIAN INVADERS 

LAZER CYCLES 

MAZE MAN 

ULTREX QUADRO MAZE 

TYLER'S DUNGEONS 

Creative Equipment 

C-64 

Cartridge; joystick 

Judging from the packaging of 
these games, as well as the 
games themselves (which are sold 
separately). Creative Equipment 
must be a new and relatively low- 
budget company. In that situation, 
a company should make up in 
imagination and daring what they 
lack in experience or finance. 
Looking at Creative Equipment's 
games, all sorts of scenarios 
spring to mind: enthusiastic 
young software designers gone 
cynical and lazy because of over- 
work and underpayment; imagina- 
tive programmers crushed under 
the heels of unimaginative man- 
agement; or, at the very least, a 
stubborn insistence on sticking to 
a game plan conceived at 1 a.m. 
on low blood sugar. I don't know 
what went on at Creative Equip- 
ment, but the results are deriva- 
tive and second-rate. 

Falconian Invaders is the most 
fun of the lot, given my prefer- 
ence for space games over maze 
games. It's a poor man's Buck 
Rogers— Planet of Zoom. The 
view is from behind a space ship. 
Using a joystick or trakball, the 
player blasts away at alien ships 
which appear on the horizon and 
lurch and sputter toward you. You 
win points and extra fuel for hits. 
A tracking option can be selected 
to help you aim. Falconian Inva- 
ders boasts graphics that a VCS 
designer would be ashamed of. 
including a feeble attempt at a 
Buck Rogers-Wkt scrolling effect. 
If you like to aim and shoot, you 
might enjoy this one. 

For players who enjoyed Sur- 
round (or the cycle sequence in 



the Disney movie, Tron), Lazer 
Cycles may have some appeal. 
The game is the same. One or 
two players each control a cycle 
which leaves a solid wall in its 
wake. On a clear field, the object 
is to force your opponent, human 
or computer, to crash into a cycle 
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trail or the screen border. The 
player has the option of playing 
within a border or wraparound. 
In early rounds, play is rather 
slow; in later rounds action is so 
fast that it's almost impossible. 
Graphics are jerky throughout, 
but the music is excellent. 



Maze Man is a polyester Pac- 
Man. The main character is 
Clyde, who resembles a Pac-Man 
ghost tied up for the laundryman. 
Clyde must avoid squids while 
gobbling dots strewn in a maze. 
When Clyde devours the occasio- 
nal "power square," the squids 
freeze for a few moments; they 
can't harm Clyde, Clyde can't 
harm them. . .he can merely gob- 
ble dots unimpeded. Atari's Pac- 
Man is now available for the 64, 
'Nuff said. 

Ultrex Quadro Maze presents 
the player with no fewer than 
four mazes onscreen at one time 
(a hack publicist's dream, that). 
When the player has eaten the 
dots of one simple maze, he con- 
tinues on to the next. When those 
four are completed, four more 
appear onscreen. And so on. 
Goblins make an occasional ap- 
pearance to complicate gameplay, 
but not nearly enough. As you 
can imagine, the mazes are quite 
simple. Young children just might 
enjoy this one. In many ways (ex- 
cept play value) it's a hoot. 

Tyler's Dungeons is as hard to 
dislike as it is hard to enjoy. Your 
character is sort of an upright ant 
with a golf club or a squid or 
something. You propel this whoo- 
zis through a series of simple 
mazes in search of treasure. 
While using an occasional eleva- 
tor which takes you hither and 
yon, you avoid a LAirk (deadly to 
the touch). Cross Traps (rooms 
that will collapse on you), and 
Snakepits. The mazes here are 
carefully rendered; they have 
plenty of texture and color, but 
gameplay is oh-so-very simple. 
Dare I recommend this one to the 
very young children of America? 
No way. I could lose my knee- 
caps. 

Creative Equipment, 6864 W. 
Flagler St., Miami, FL 33144. 

—Dan HaUassey 
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KIDWRITER 

Spinnaker Software 

Disk, keyboard 

Kidwriter is an electronic story- 
book generator and word proces- 
sor tutorial. That's compute rese 
for: Kidwriter is an excellent pro- 
gram for children of ages 6 to 10 
that allows them to create their 
own storybook pages and save 
them. 

The program is all menu-driv- 
en. The first menu the child 
meets offers the options of making 
a new picture, retrieving an old 
one, seeing a catalog of old pic- 
tures, or quitting the program. If 
the child chooses to make a new 
picture, the second menu appears. 

Menu two is the major work 
station of the program. First, the 
child is given the option of select- 
ing one of ten possible back- 
grounds for the picture to be crea- 
ted. Each possible choice is dis- 
played one at a time with a tap of 
the S key. Once the background is 
chosen, the child selects the ob- 
jects and figures for the fore- 
ground. With each tap of the F 
key, one of the 99 possible figures 
is displayed. These include men 
and women— front and profile- 
aliens, vehicles cosmic and earth- 
bound, animals, celestial objects 
real and fanciful, geometric 
forms, tools, buldings, and num- 
bers and letters (for title pages). 

When an object is chosen (with 
the P key), menu three is dis- 
played. This allows the option of 
changing the color and size of the 
object as well as moving it around 
the screen with the cursor control 
keys. When the child is satisfied, 
the D key propels him or her 
back to menu two for more selec- 
tion of figures or objects. When 
all the objects are chosen (there is 
a limit of eight or so per frame) 
and positioned, it's time to write 
the story. 
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Approximately two thirds of the 
screen comprises the picture. The 
lower third allows room for the 
child's text. Kidwriter's word pro- 
cessor has the fundamentals only. 
With the cursor controls and de- 
lete key, a portion of the text can 
be corrected, deleted, or typed 

*t * I 
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over; the clear/home key brings 
the cursor to the first textual 
space, and the clear/home key 
with the shift key erases the 
whole shebang. 

A sense of disappointment in 
software seems to be common 
nowadays. Very rarely do software 
packages deliver on the extrava- 
gant claims made for them in the 
past year. Objections are being 
made that educational/leisure soft- 
ware provides little more than has 
traditionally been offered in 
books, playing cards, boardgames 
and so forth. Seen in that light, 
Kidwriter Is merely an electronic 
box of crayons that requires none 
of the motor skills encouraged by 
hand drawing and only a fraction 



of the craftsmanship and subse- 
quent pride of accomplishment. 
Further, the program contains but 
99 figures and ten backgrounds; 
that barely scratches the surface of 
most children's visual imagina- 
tions. 

All true, and at the same time 
irrelevant. 

Some children take to a compu- 
ter like a duck to water; they be- 
come obsessed with it. Others 
may need some cajoling and still 
will never enjoy it. Many proba- 
bly tall somewhere in between. 
Alert parents will recognize the 
developmental strengths and weak- 
nesses of their child's natural in- 
clination. They may find that the 
computer-obsessed child requires, 
at least initially, an electronic 
means to create visually or write 
precisely. They may find Kidwri- 
ter to be the ideal way of luring a 
suspicious child to the computer 
or, for those kids with a creative 
bent, an all-new medium for their 
genius. Kidwriter could be used to 
create elaborate flashcards or— 
youth of America, forgive me— 
spot quizzes. 

Patience will be required to run 
through the figure menu; there is 
no way to select directly from the 
99 choices. And simple as the 
word processor is, the parent will 
want to help the young child 
through its paces at first. In feet, 
the parents may vrant to hover a 
while longer. Kidwriter is an ex- 
cellent program to stimulate inter- 
action between parent, child and 
computer. 

Spinnaker Software, 215 First 
Street, Cambridge, MA 02142. 

—Tim Moriarty 
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An Investigation of Sequential Files 




by Dale Rupert 

our hand is shaking as you reach for the 
file folder on the desk. The room is dark, 
but you can clearly read the bold letters 
on the front: CONFIDENTIAL. 
You open the file. Inside you read: 

You are to create a computer file (either tape or 
disk) by entering and running the following program 
on your Commodore computer. This file will have 
the name 3X501. It will contain information which 
has been encrypted according to directive E78- 
402SQ. The encryption code number for this file is 
3 1 , and of course that number is required for de- 
coding the file. This information as well as the en- 
cryption code number must not be revealed. This 
folder must be destroyed after the folowing program 
has been entered into your computer. 



1 REM >> 
X501 

5 INPUT " 
10 IF A$= 
20 N=8:0P 
G0T040 
30 N=1:0P 
40 READ D 
50 PRINT* 
60 IF D$= 
70 GOTO A 
80 DATA 1 
90 DATA 1 
100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 



CREATE CLASSIFIED FILE 3 

TAPE (T) OR DISK (D)";A$ 

"T" THEN 30 

EN N,N,N,"@0:3X501,S,W": 

EN N,N,N, "3X501" 

$ 

N,D$ 

"***"THEN CLOSE N : END 



18,100,107,98,110,108 

00,63,115,110,63,115 

103,100,63,118,110,113 

107,99,63,110,101,63 

98,110, 108,111,116,115 

100,113,63,101,104,107 

100,114,64,*** 
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Once you have run the above program, you have 
created a sequential file with the filename 
"3X501", Now the question is, "what can I do 
with it?" or perhaps, "what is a file, anyway?" 

Let's start with the second question. A file (either 
tape or disk) is a block of data. The data may con- 
sist of many items or records. When you SAVE 
your programs, you create a program file. This file 
is essentially an image on tape of the way your pro- 
gram appears on the screen. (We'll assume we're 
using the cassette recorder for now, although most 
of what we discuss will also be true of disks.) 
There is other information telling the computer vari- 
ous things about the storage locations of your pro- 
gram. Also there is a title, or filename, attached to 
the file. 

When you LOAD a particular program, you spe- 
cify its filename. The computer reads the names of 
the files as it searches along the tape. When it finds 
the file with the name you specified, the computer 
puts that file into memory. 

Sequential files are similar to program files with 
which you are already familiar. Instead of using 
LOAD and SAVE to read and write to them, how- 
ever, you use INPUTS (or GET#) and PRINTS. 
The "#" after these statements makes them seem 
somewhat mysterious. We will see that looks are 
deceiving. These statements are really no more diffi- 
cult to comprehend and use (after a little practice) 
than more familiar ones such as INPUT, GET. and 
PRINT. 

The files we will deal with are called sequential 
files because of the way that data is stored in them 
and the way in which the data must be read from 
them. All tape files are sequential. Each data bltxrk 
or record is written right after the preceding one. 
The recording head in a cassette recorder certainly 
can't jump around to non-sequential places on the 
tape. 

Similarly, all data must be read in a "single-file" 
fashion. The computer cant read the fifth record 
until it has passed the fourth record. Consequently, 
to access the fiftieth data item in the file, the com- 
puter must be instructed to read and couni the forty- 
nine records in front of it. The sequential files are 
to be contrasted with random-access files, which ex- 
ist only on di.sks. We will work only with serial-ac- 
cess or sequential files. 

GETTING STARTED 

Let's see what it takes to create a very simple 
file. This program stores the word "COMPUTER" 
in a file called "FIRSTFILE": 
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10 OPEN 1,1,1, "FIRSTFILE" 
20 PRINT* 1, "COMPUTER" 
30 CLOSE 1 

If you are using a disk instead of tape, change line 
10 to this: 

10 OPEN 8, 8, 8, "FIRSTFILE, S,W" 

Also change the I 's in line 20 and 30 to 8's. 

Position the tape to the place where the file is to 
be stored and reset the tape counter to 0. When you 
type RUN, with the tape version the computer re- 
sponds "Press Record and Play on Tape." With the 
disk version, the drive should spin for a moment. In 
either case, the computer writes the filename 
"FIRSTFILE" along with some other identifiers, 
and then it writes "COMPUTER." That's all there 
is to it! 

This certainly looks like a lot of work to write a 
single word to a file. The bulk of the program is 
overhead. Lines 10 and 30 are necessary to tell the 
computer about the file itself Line 20 does the ac- 
tual writing to the file. Aside from the #1 (or #8), 
writing to the file looks just like writing to the 
screen: PRINT "COMPUTER ". Conceptually they 
are identical. 

The OPEN statement tells the computer about the 
file we want to create. Just as there may be .several 
open files on a desktop, we may open more than 
one file at a time in the computer. We identify each 
file by number, the file-number. The file-number is 
the first value in the OPEN statement. We opened 
file number I for tape and number 8 for disk. We 
could u.se any number between 1 and 255 although 
numbers below 127 are recommended. Once we as- 
sign a file-number to a file, any access to that file is 
made by specifying its number. 

Since the computer deals with disks differently 
from tapes, we must identify the type of device on 
which our file will reside. The second number after 
the OPEN statement is the device-number. The cas- 
sette must have a device number of I . and the disk 
must have a device number of 8. (Other devices 
such as the keyboard, video display, and printer also 
have specified device numbers.) 

The third number after the OPEN is the second- 
ary address. This number tells the computer whether 
we are reading or writing data to or from the tape 
(when the device number is 1. A "1" here means 
that we are writing to tape). A "0" would mean 
that we were reading from tape. A "2" could be 

Continued on page 95 
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9. To obtain the benefits of two drive operation with 
these packages, a second single drive as device 9 
would be required. 

The Duplicate command is used for making fast 
copies of an entire disk. This is actually only part 
of the capabilities available to users of a dual disk 
drive. Consider the Copy command, which is sup- 
ported by the Commodore DOS. With a single 
drive, the results are of limited use. The copy ends 
up on the same disk as the original file. About the 
only useful feature of this command is for concat- 
enation of files. Used in conjunction with a dual 
drive, the copy command takes on entirely new 
meanings. 

Copy allows the transfer of files from one disk to 
another. In this case the destination disk must al- 
ready have been formatted. Files from one disk can 
be copied to another disk which may already be 
partially full. For example, 

PRINT#15,"C1 :NEW FILE=0:OLD FILE" 

copies OLD FILE from drive as NEW FILE on 
drive 1. All the files from one disk can be easily 
transferred to a second disk by 

PRINT#15,"C1=0" 

This will copy an entire disk on a file by file basis. 
The process is considerably slower than the Dupli- 
cate command, but is faster and more convenient 
than the repetitive LOADs and SAVEs required with 
single or dual disk drives. The actual time for an 
entire disk depends on the number of files and the 
size of the individual files. As an example, the 
Commodore 64 Disk Bonus Pack takes about nine 
and one half minutes to COPY. 

The biggest advantage of the DOS file mainten- 
ance commands is that no software has to be loaded 
in the computer to perform these tasks. Virtually all 
our single drive copy programs were obsoleted by 
the dual drive. Disk file maintenance can be easily 
performed from within any applications program 
capable of issuing DOS commands. Some of the 
timing tests for this review were actually done from 
within Easy Script while this review was being 
written. 

Actual speed of operation on the serial bus was 
not improved by the MSD SD-2. The time required 
for a straight LOAD or SAVE operation was actual- 
ly about eight per cent longer than with the 1541. 



This was not entirely unexpected. Data transfer over 
the serial bus is controlled by the computer and not 
the disk drive. The apparent slowdown of the MSD 
SD-2 was a deliberate engineering decision by MSD 
to ensure timing compatibility with all peripherals 
available for the serial bus. This is a wise decision 
on their part in view of previous compatibility pro- 
blems experienced by Commodore and others. 

There will be some significant speed improvement 
for applications involving random files and other 
multiple file access. The disk internal operations 
are significantly faster than for the 1541, as evi- 
denced by the 17-second format time. We could not 
obtain exact figures on this speed improvement, but 
we do estimate as much as 20% for some opera- 
tions. More significant results were obtained with 
the MSD CIE interface card. This provides an 
IEEE-488 port on the Commodore 64 for use with 
the MSD drive as well as other CBM peripherals. 

The SD-2 did seem to be more sensitive to disk 
errors than the 1541; however, this may have just 
been a sample-to-sample variation. Sectors which 
came up bad on the MSD were marginal but read- 
able with our 1541. Interestingly enough, all of 
these problems occurred with disks prepared on 
outisde drives. We experienced absolutely no pro- 
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blems while exchanging disks with any of our in- 
house drives. 

The drive's sensitivity was most noticeable with 
the Duplicate command. The proper operation of 
this function requires a perfect disk. Any errors or 
marginal sectors will abort the operation. A brief 
analysis reveals the reason. At 1 minute and 54 
seconds for a complete backup, less 17 seconds to 
format the disk, there is only 97 seconds to per- 
form the actual copy. At a drive speed of 300 
revolutions per minute and 35 tracks to copy, there 
is not enough time for extensive error checking and 
reentries. In comparison, normal operations, for 
both the MSD SD-2 and the 1541 will make over 
thirty tries at a sector before reporting an error. 

THE MANUAL 

The manual supplied with the SD-2 is a model of 
clarity. All the standard DOS commands are clearly 
explained with examples for each. The explanation 
regarding the difference between the BLOCK-READ 
and BLOCK-WRITE commands and the USERl and 
USER2 commands was particularly well done. 
However, the manual does manage to leave out 
some interesting points: for example, the DOS se- 
quential file append capability. This command was 
left out of the 1541 manual as well. The syntax is: 

0PEN3,8,3,"0:FILE ONE, .A" 

This would have the effect of appending all data 
sent to logical file number 3 to the end of sequen- 
tial file FILE ONE. We tried this out with both the 




SD-2 and the 1541 and it does work. 

Unfortunately the manual lacks disk layout dia- 
grams. These drawings, included in the 1541 
manual, contain useful information regarding the 
disk track and sector layout and the contents of the 
disk directory. 

The SD-2 does not come with a demonstration 
disk. We felt this to be a significant shortcoming, 
particularly for users who elect the SD-2 as their 
first disk drive. Some kind of test/demo disk with 
sample programs and disk utilities, such as the 
DOS wedge, should have been provided. 

RELIABILITY 

In view of past experience with other hardware, 
this is a touchy topic indeed. We must report that 
the first sample of the SD-2 failed on the first day. 
Occurrences of this sort are associated with every 
manufactured product. Reliability engineers describe 
the early failures of a product as "infant mortality!' 
This simply means that the most likely time for a 
factory defect to show up is very early in the pro- 
duct's useful life. All reputable manufacturers make 
allowance for these possibilities by offering some 
sort of product warranty. 

In the case of the SD-2, MSD offers a six month 
warranty, twice the norm for this industry. In addi- 
tion, MSD will turn around any returned units 
within 48 hours of receipt. We did receive a re- 
placement unit posthaste and have been able to give 
the drive a thorough workout. A demonstration ses- 
sion at one user group meeting produced over 40 
copies of Comal in an hour and a half We estimate 
that the intensive use during the one-month test 
period prior to the writing of this report was ap- 
proximately a year's throughput for a 1541 disk 
drive. 

CONCLUSION 

The Micro Systems Development SD-2 Super 
Disk Drive is a sturdy, well-designed product. It 
makes available to users of the Commodore 64 and 
the VIC 20 all the file handling capabilities long 
taken for granted by usere of the PET and CBM 
line of computers. Serious users of the Commodore 
64 will easily be able to justify the $695 price tag. 
The time savings alone, when backing up disk files, 
will rapidly pay for the machine. The drive is 
suitable for duplication of distribution software by 
program developers, u.ser groups, etc. The inclusion 
of both the VIC serial bus and IEEE-488 bus make 
the SD-2 a welcome addition for Commodore users 
and a suitable replacement for the CBM 4040. D 
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EDUCATIONAL 
SOFTWARE 

A GUIDE FOR R^RENTS 

PART V 



By Richard Herring 



What approach should educational soft- 
ware take to its subject? For better or 
worse, this is a problem which 

I 1 plagues not only software designers, 

but all educators. It is the classic conflict between 
process and product; means and ends. In the 
schools, emphasis is placed on the product of learn- 
ing—on whether the student can recite certain facts. 
Learning in the home tends to be more process- 
oriented— allowing the child to think through a 
problem and discover how to solve it. 

These two approaches to learning are evident in 
educational software. Most educational software fits 
(sometimes uncomfortably) into one of four categor- 
ies depending on how it presents the learning chal- 
lenge: drill and practice, tutorial, simulation, and 
problem solving. The first two, drill and practice 
and tutorial, rely on teaching facts. These types of 
programs fit neatly into school curricula; the learn- 
ing that takes place is practical and measurable. 
Simulation and problem solving programs, on the 
other hand, offer the child an environment to ex- 
plore and promote the development of insight. 

Drill and practice programs are fine (and very 
common) for subjects best-learned through memori- 
zation. Offering immediate reinforcement and reme- 
diation, many programs are able to present ques- 
tions randomly so that the child can't just memorize 
a series of answers. Some software can even indi- 
vidualize the presentation of questions based on the 
child's progress and previous scores. Drill and prac- 
tice programs are available for almost all grades 
and school subjects. 



One subject for which the drill and practice ap- 
proach works well is reading speed. Speed Reader 
11, from Davidson & Associates, is a flexible exam- 
ple. Along with the program disk, a separate data 
disk contains thirty-five reading selections; addi- 
tional data disks are available for any grade level. 
You can start with warm-up exercises, practice eye 
movement, and take timed reading tests. Other exer- 
cises help your peripheral vision and eye span as 
well as train special skills like reading columns. So 
that you do not emphasize speed to the detriment of 
understanding, comprehension tests are also given. 
If you want to enter your own text, Speed Reader II 
will analyse it and tell you what grade level it's on. 

Another approach to reading and word recogni- 
tion skills is taken in Didatech's Fay: The Word 
Hunter. In this word search game, the heroine. Fay, 
searches underwater for words hidden in rows of 
letters and shoots those words with her laser. Of the 
3000 words on the disk, those that are frequently 
misspelled will appear most often. This program 
uses a more arcadelike approach than a static or 
printed word-search puzzle. 

The trophy for most creative use of the compu- 
ter's capabilities in the drill and practice category 
may have to go to Chatterbee, a spelling program 
from Tronix. Spelling programs have used many in- 
novative approaches to avoid showing the word on 
screen and allowing the child to copy it. Chatterbee 
talks. It actually says each word, then uses it in a 
sentence. When the child types the word correctly, 
he gets verbal reinforcement and a smile from the 
Chatterbee. If the child guesses wrong three times, 
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the program spells the word out loud. The child can 
start at any of twelve levels, but the program will 
automatically adjust to the correct level for the 
child based on his performance. 

Chatterbee violates one rule for slow learners: do 
not announce the child's failure. If adults are within 
earshot, the child may hesitate to try, knowing that 
answers will be announced by the computer. For 
children who require tutoring for specific language 
learning disabilities, SLED Software offers a series 
of spelling programs designed by a language thera- 
pist. In addition to drill and practice on spelling 
rules, SLED's programs use exercises and tutorials. 

Drill and practice programs are fine at school 
where kids are a captive audience. But in the home 
environment, those programs often require parental 
interest and involvement, or a highly motivated 
child. At home, there are just so many diversions 
which aren't available at school. Drill and practice 
is basically learning through repetition. (Notice I 
did not mention any math programs; a ton of them 
exist.) As they begin to include detailed explana- 
tions for right and wrong answers, drill and practice 
programs stan to look like tutorials. Programs 
which prepare high school students for the Scho- 
lastic Aptitude Test are great examples. 

One reasonably priced program ($30) is SAT 
Review from Moses Engineering. This package of 
five cassettes includes a practice exam, skill training 
in English and math, and a final exam. SAT pro- 
grams are heavily drill and practice oriented, yet 
programs like SAT Review begin to tutor you on the 
facts needed to do well on the college boards. 

Another approach to SAT study is Harcourt Brace 
Jovanovich's Computer Preparation/SAT which 
comes with 540 drill questions, 1000 vocabulary 
'flash cards' and four full length tests. The tests are 
actually taken in a workbook, with answers typed 
on the computer. This approach for the tests is just 
about as boring as using a $9.95 SAT review 
manual from the local bookstore. The drill ques- 
tions, however, are really tutorial in nature. In the 
synonym section, a word will be displayed not only 
with a list of possible synonyms, but also with hints 
on how to approach the problem and finally, a 
definition. 

True tutorials first give the child basic informa- 
tion on the subject and then follow up with ques- 
tions (often multiple choice) on the material. When 
the child gives an incorrect answer, the program 
will usually return to the lesson to review or further 
explain the tact. Subjects like history, geography, 
and sciences are suitable for tutorial presentation. 
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Early Music Games is a program designed to 
tutor your child on piano keyboard skills. While 
correct finger positioning cannot be learned on a 
computer keyboard, the screen displays of a piano 
keyboard and bass and treble clefs will familiarize 
your child with important concepts. The top row of 
keys is used to simulate a keyboard. As your child 
"types" notes, they are shown on the screen 
keyboard. (Since half notes— the black keys— are 
not used, this can serve only as an introduction.) In 
bass or treble clef mode, the tune your child plays 
appears as notes on a staff. Once the child begins 
to grasp all this, he can test his understanding by 
having the computer display a series of notes from 
which he must identify the unlabeled one. 




Speed Reader 
II uses the drill 
and practice ap- 
proach. Program 
includes warm- 
up exercises, 
eye movement 
practice, and 
timed reading 
tests. 
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Some tutorials are even aimed at teaching you 
how to use computer software. Logo Locomotion is 
a scries of games which help children learn turtle 
graphics. (It must be used with Commodore Logo.) 
Different grids are shown on screen to help the 
child get a feel for the angles and distances through 
which the Logo turtle moves. Feedback is given for 
the commands the child types so that mistakes can 
be corrected quickly. When the child develops an 
intuitive feel for distances and relative and absolute 
headings, he can continue to play the games without 
the grids to guide him. Since the Logo Locomotion 
programs can be listed, real mastery may come 
from understanding and modifying the programs 
themselves. 

Tutorials are a good approach when you want 
your child to learn about a subject generally. He 
will pick up whatever facts seem interesting and 
probably ignore the rest, but he will put it all in a 
new contextual framework of how volcanoes erupt 




Delta Drawing brings turtle graphics to toddlers. 
READER SERVICE NO. 6 

or whatever. Examine how the program will treat 
the child. As additional correct responses are given, 
drill-and-practice programs and tutorials should 
become gradually more difficult. And, if you give a 
wrong answer, the program should back up a bit or 
maintain its current level of difficulty, but not 
penalize you by forcing you to start with the easiest 
problems. 

After drill and practice and tutorials, we move in- 
to simulations and problem solving programs. Both 
generally recognize many correct answers to any 
question. David Seuss, president of Spinnaker Soft- 
ware, points out that educational software may be 
oriented toward a specific subject, as are many 
spelling and arithmetic programs, or that it may 
provide an environment to explore, like simulation 
and adventure programs. He asks which software 
you think your child is most likely to want to use 
again and again. 

Topically best for teaching about systems, there 
are numerous simulations that allow you to rule an 
empire and force you to make hard economic deci- 
sions. By providing a feeling for the subject, simu- 
lations let your child develop values and understand 
complex dynamic relationships. In a simulation, the 
child is often asked a "what if question. Based on 
any of a wide variety of answers, the computer will 
tell your child what difference his response made. 
Eventually, your child will begin to understand the 
dynamic relationship among the variables in the 
simulation; he will learn how parts of systems 
interrelate. 

Sandra Curtis, director of research for Joyce 
Hakansson Associates, describes how she tries to 
develop software that will lead to insight, the 'ah-ha 
experience' as she calls it. Little children are like 



little scientists, learning through trial and error. Dr. 
Curtis gives the example of a toddler dropping a 
spoon again and again at mealtime. This is a great 
discovery; release the spoon and it falls. Regardless 
how much it seems that this repetitious behavior is 
just the child trying to annoy the parent, it is really 
an 'ah-ha experience.' 

Space Rescue is a simulation hidden in a game. 
Benji and you (hopefully you're not as accident- 
prone as Chevy Chase) pilot a spaceship. The Star 
Woof, in search of scientists who have been cap- 
tured by aliens. Before the journey, you must coor- 
dinate your supplies of fuel and provisions and set 
your ship's course. Statistics in this program were 
obtained from NASA; fuel and resources relate di- 
rectly to distance traveled. You will learn the layout 
of our solar system and have a few arcade episodes 
with attacking alien ships and meteor storms. The 
strength of this program is its gentle introduction to 
just a few of the intricacies of space flight. 

Simulations often use this type of hypothetical en- 
vironment. The hypothetical consequences of our 
actions are the only way to experience many situa- 
tions; most of us will never pilot a spaceship. Or, 
simulations may be used where the activity is just 
too dangerous. We have all read press accounts of 
military simulations which are a learning process 
for those involved, but which have consequences 
too terrible to imagine in the real world. Sometimes 
learning through role playing is the only way. 

Historical background may play a part in a 
simulation. Spinnaker's program Trains is set in the 
Old West and based on the economy of the times. 
Chugging between refineries, oil wells, and coal 
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Commodore LOGO has seven programmable sprites. 
READER SERVICE NO. 7 
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Dragon's Keep teaches kids reading and map skills. 
READER SERVICE NO. 8 

depots, your train will help you learn about the law 
of supply and demand. As you transport lumber to 
the mill or ore to the factory with your coal burner, 
you will have to plan ahead. What are the most 
lucrative goods to transport? Can you make one 
more run without running out of coal for the 
locomotive? To advance to the higher rounds, you 
will have to get better and better at juggling 
variables, at exploring the limits of the system. 

Simulations like this offer children an exciting 
medium for developing and honing their analytical 
thinking skills. Critics sometimes point out that 
simulations oversimplify reality, that they make 
children think superficially about a complex world. 
But isn't that the natural process of learning: to 
understand pieces of the whole; incomplete at first, 
but becoming more and more detailed? 

Problem-solving programs are the last general 
type of educational software. Adventures are good 
examples. The child must explore a fictional setting, 
manipulate objects, deal with people, and solve 
puzzles. When designed well, problem-solving pro- 
grams present the child with very real learning 
situations. They treat the child much like the real 
world does— in complex ways rather than one issue 
at a time. Simulations and problem-solving pro- 
grams, however, should allow the child to give any 
reasonable answer. Be wary of programs which ac- 
cept a very limited range of inputs since they will 
frustrate a child who cannot guess how to make the 
computer accept a perfectly reasonable response. 

A simple adventure game is Dragon's Keep from 
Sierra On-Line. With a magic dragon keeping six- 
teen animals prisoner, your child must find and 
release each one. Twenty-six different locations can 
be explored. The program comes with a map and a 
sticker for each animal. As your child explores the 
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world on screen, he can track his progress on the 
map and mark where he rescued each animal. De- 
signed for younger children. Dragon's Keep requires 
no typing skills. Each movement option is shown 
on the bottom of the screen; hit the space bar to 
highlight the one you want and then hit return. This 
delightful game will let your child explore a mini- 
world while learning map skills and practicing 
reading. 

Tlw Factory by Sunburst Communications is 
another example of problem-solving software. Using 
lots of graphics and animation, this program will 
challenge your child to produce certain shapes on a 
geometric assembly line. First, your child gets to 
see how the assembling machines work. Next, he 
will set up a series of machines to make a product, 
probably building as he goes, with only a vague 
idea what the finished shape will look like. In the 
end, he will have to design an assembly line that 
can produce a shape determined by the program. 
Like programming. The Factory stresses how impor- 
tant sequence is in accomplishing goals. It also 
teaches inductive reasoning; the child must learn to 
think backward from the goal through the steps 
necessary to accomplish it. 

The best problem solving software around is ac- 
tually a computer language— Logo (or Pilot). Using 
turtle graphics, a child can not only explore the 
world where the turtle lives, but can also create his 
own miniature landscape. This is more than simple 
drawing; it is logic and geometry and motion. 
There is little the turtle can do that the child cannot 
do by pacing out a precisely described path. In fact, 
that is one of the best ways to understand turtle 
graphics. 

Continued on page 98 
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PROGRAM LISTINGS 




n the Ibllowing pages are iislcd several 
programs that we hope you'll want to 
j punch in your Commodore computer. But 
I please read the iollowing introduction 
first; there are a few things you'll need to know. 

Certain computer ct)mniands are displayed on the 
monitor by a variety of odd-looking characters. To 
get your computer to display these commands ra- 
ther than actually perform thciti. you'll need to en- 
ter the quote mode. Hold down the SHIFT key and 
press the "2"" key: a set of quote marks will ap- 
pear. This tells the computer that the characters 
that follow are to be displayed, not performed. To 
exit the quote mode, type another set of quote 
marks, or hit the RETURN key. You'll also enter 
the qut)te nu)de when you INserT spaces or charac- 
ters onto a line. 

In Ahoy'.'s program listings, you'll frequently 
find letters and/or numbers surrounded by brackets 
j }. That's because, lor the purposes of clear re- 
production, we at Ahoy! use a daisy wheel printer 
incapable of reproducing conrmand symbols. For 
example, when jou're in the quote mode and 
press the .SHIFT and CLRHOME keys at the same 
time, the screen (or a dot-matrix printer) will indi- 



cate this command with a heart {Et- Bccau.se a 
daisy wheel cannot duplicate this .symbol, it substi- 
tutes an alternate code between brackets. In the 
case of the SHIFT/CLR HOME symbol, our prin- 
ter substitutes {.SC}- 

Another special case is SHIFT and COMMO- 
DORE characters. We represent these by underlin- 
ing or overlining. respectively: any character un- 
derlined in the program listing should be punched 
in as a SHIFTed character ( [ = SHIFT J), any 
character ovcrlined should be punched in as a 
COMMODORE character ( J = COM.MODORE J). 

An alternate way of entering commands antl 
other graphics .symbols and characters is to use 
their corresponding character strings. The 
CLR/HOME command, for example, is entered by 
typing CHRSi 147). While this requires a few extra 
strokes, it facilitates editing your program or read- 
ing the printed listing. For a complete list of CHRS 
codes. ct)nsull the appendix at the back of your 
Commodore user manual. 

Beiow is a list of the command abbreviations 
you'll find in our program listings, the C4)mmands 
they stand for, how to enter them, and how thev'll 
appear on the screen or on a dot matrix printout. 



When 
^iiu .See 


tt Means 


You Type 


^'ou 

WjJt See 


When 
You .See 


It .Means 


You Type 


You 
Will Sec 


{SO 


.Screen Clear 


SHIFT CLR/HOME 


^ 


(YD 


Yellow 


CNTRL 8 


^ 


[HM) 


Hume 


CIJt/HOME 


^ 


{ORl 


Orange 


co.mmoixirf: t 


m 


{€11} 


Cursor I'p 


.SHIFT • CRSR . 


n 


(BR] 


Brown 


commoixjrf: 2 


li 


(CD) 


Cursor Dawn 


- CRSR . 


m 


(LR) 


LiRht Red 


COMMODORE 3 


@ 


{CL} 


Curinr Left 


SHIFT • CRSR • 


11 


IGl} 


Grej I 


commodorf: 4 


m 


(CRl 


Cursor Righi 


• CRSR • 


o 


{G2} 


Grey 2 


C0MM0IK)RF 5 


B 


(SS) 


Shifted Space 


SHIFT space 


■ 


{ LG } 


Light Green 


co.mmodorf; 6 


■1 


{IN} 


llHXI 


INST 


II 


(LB) 


Light Blue 


COM.MODORE 7 


m 


(RV) 


Reverse On 


CNTRL9 


m 


{G3) 


(irev 3 


COMMODORE 8 


mm 


[RO) 


Re>erse Off 


CNTRl. 


m 


(Fl) 


Function I 


F I 


■ 


IBK) 


Black 


CNTRL I 


m 


(F2) 


Funcliim 2 


F2 


a 


(WH) 


White 


CNTRL 2 


EuEl 

9 


tF3) 


Function 3 


F3 


■ 


(RD) 


Red 


CNTRL 3 


m 


{F4j 


Function 4 


F4 


B 


{CY) 


Cyan 


CNTRL 4 




{F5] 


Function 5 


FS 


■ 


(PU) 


Purple 


CNTRL 5 


m 


(F6) 


Function 6 


F 6 


B 


(GN) 


Green 


CNTRL 6 


m 


{F7) 


Function 7 


F7 


B 


(BL) 


Blue 


CNTRL 7 


o 


(F8) 


Function 8 


F8 


■ 
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BUG REPELLENT CORRECTION 

These are updated versions of Bug Repellent. See 
the note on page 4 before typing any prc^ramsl 



VIC 20 

RUG REPEIIFNT 

By Michael Kleinert and David Barron 

The pmgrdm listed beliw will alkw you to quickly debug any 
Ahiiy! prograni you lype in on your VIC 20. Follow directions for 
cassette or disk. 

Rtr cassette: type in and save the Bug Rcpelteia program, then 
type RUN 630001 RETURNISYS 82S|RETURN1. If you typed the 
program properly, it will generate a set of two-letter line codes 
that will match those listed below the program on this page. (If 
you didn't type the program properly, of coui^, no line ctxies 
will be generated. You'll have to debug the Bu^ Repellent itself 
tiie hard way.) 

Once you've got a wnrking Bug Repellent, type in (he program 
you wish U) check. Save it and type the RUN and SYS com- 
mands listed above once again, then compare the line codes 
generated to those listed in the magazine. If you spot a discrep- 
ancy, a typing error exists in that line. Important: you must u.sc 
exactly the same spacing as the pn)gram in the magazine. Due to 
memory limitations on the VIC. the VIC Bug Repelkm will 
register an error if your spacing varies fnjni what's printed. 

You may type SYS 828 as many times as you wish, but if you 
use the ca.s,selte for anything, type RUN 63000 to restore the 
Rurpelleni. 

When your program has been disinfected you may delete all 
lines from 63000 on. (Be sure the program you type d(X»n"t in- 
clude lines above 63000!) 

For disk: type in the Bug Repellent . save it. and type 
RUN:NEW[RETURN|. (See aboive regarding testing the Bug 
Repellent on itself.) Type in the program you wish Ui check, then 
SYS 828. This will generate a set of two-letter line codes that you 
should compare to those listed in the magazine. 

lb pause the line codes listing, piess SHIFT. To permanentiy 
pau.se it, press SHIFT LOCK. To continue, release SHIFT LOCK. 

To send the list to the printer lype OPEN 4.4;CMD 4:SYS 
S28[RETURN]. When the cursor comes back, type 
PRINT#4;CLOSE 4[RETURN]. 



.63007 DATA 32, 210, 255, 169, 0, 

133, 253. 230, 254, 32 
•63008 DATA 228, 3, 234, 165, 253, 

160, 0, 170, 177, 251 
.63009 DATA 201, 32, 240, 6, 138, 

113, 251, 69, 254, 170 
•63010 DATA 138, 133, 253, 177, 25 

1, 208, 226, 165, 253, 41 

• 63011 DATA 240, 74, 74, 74, 74, 2 
4, 105, 65, 32, 210 

•63012 DATA 255, 165, 253, 41, 15, 

24, 105, 65, 32, 210 
. 63013 DATA 255, 169, 13, 32, 210, 

255, 173, 141, 2, 41 
•63014 DATA 1, 208, 249, 230, 63, 

208, 2, 230, 64, 230 
•63015 DATA 251, 208, 2, 230, 252, 

76, 74, 3, 169, 236 
•63016 DATA 160, 3, 32, 30, 203, 1 
66, 63, 165, 64, 32 

• 63017 DATA 205, 221, 169, 13, 32, 
210, 255, 96, 230, 251 

• 63018 DATA 208, 2, 230, 252, 96, 
0, 76, 73, 78, 69 

. 63019 DATA 83, 58, 32, 0, 76, 73, 

78, 69, 32, 35 
. 63020 DATA 32, 0, 0, 0, 0, 



1023 :READ Y 



• 63000 FOR X = 828 TO 

:POKE X,Y:NEXT:END 
.63001 DATA 169, 0, 133, 63, 133, 

64, 165, 43, 133, 251 
•63002 DATA 165, 44, 133, 252, 160 

, 0, 132, 254, 32, 228 
•63003 DATA 3, 234, 177, 251 

3, 76, 208, 3, 230 
.63004 DATA 251, 208, 2, 230 

169, 244, 160, 3, 32 
•63005 DATA 30, 203, 160, 0, 

251, 170, 230, 251, 208 
.63006 DATA 2, 230, 252, 177, 
32, 205, 221, 169, 58 

68 AHOY! 



208, 

252, 
177, 
251, 



BUG REPELLENT LINE CODES 
FOR VIC 20 BUG REPELLENT 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



6 3000:MH 
63001 :BD 
63002 :F0 
63003 :ND 
63004 :DJ 
63005: LP 
63006: JB 
63007 :JF 
63008 :KA 
63009: HP 
63010:KJ 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



63011 

63012; 

63013: 

63014; 

63015; 

63016; 

63017: 

63018: 

63019: 

63020: 

21 



NN 
IG 
EN 
GJ 
IK 
HG 
CK 
JF 
OH 
LH 



C-64 

Bye REPELLENT 

Jy Michael Kleinert and David Barron 



By 



The program listed below will allow you to quickly debug any 
Ahayi. program you type in on your C-64, 



Type in and save the Bug RepeUem program. Type NEW, ihen 
type in (he Ahoy', prtigram you wish to check. When that's done, 
save your program (don't run it!) and type SYS 49152 RETURN. 
You'li be a.sked if you want the line value codes displayed on the 
screen or dumped to the printer. If you select screen, it will appear 
there. 

The table will move quickly. t(X) quickly (or most mortals to 
follow. To pause the listing depress and hold the SHIFT key. To 
pause lor an extended period, depress SHIFT LOCK. As long as it 
is Itx'ked. the display will remain frozen. 

Compare the table your machine generates to the table in Ahoy! 
that follows the program you're entering: If you spot a difference, 
an ennir exisLs in that line. Jrt down the numbers of lines where ct)n- 
tradictioas occur, LIST each line, spot the eirors. and correct them. 

•5000 FOR X = A9152 TO 49488 :READ 

Y:POKE X,Y:NEXT:END 
•5001 DATA 32, 161, 192, 165, 43, 

133, 251, 165, 44, 133 
•5002 DATA 252, 160, 0, 132, 254, 

32, 37, 193, 234, 177 
•5003 DATA 251, 208, 3, 76, 138, 1 

92, 230, 251, 208, 2 
•5004 DATA 230, 252, 76, 43, 192, 

76, 73, 78, 69, 32 
•5005 DATA 35, 32, 0, 169, 35, 160 

, 192, 32, 30, 171 
•5006 DATA 160, 0, 177, 251, 170, 

230, 251, 208, 2, 230 
•5007 DATA 252, 177, 251, 32, 205, 

189, 169, 58, 32, 210 
•5008 DATA 255, 169, 0, 133, 253, 

230, 254. 32, 37, 193 
•5009 DATA 234, 165, 253, 160, 0, 

76, 13, 193, 133, 253 
•5010 DATA 177, 251, 208, 237, 165 

, 253, 41, 240, 74, 74 
•5011 DATA 74, 74, 24, 105, 65, 32 

, 210, 255, 165, 253 
•5012 DATA 41, 15, 24, 105, 65, 32 

, 210, 255, 169, 13 
•5013 DATA 32, 220, 192, 230, 63, 

208, 2, 2 30, 64, 230 
•5014 DATA 251, 208, 2, 230, 252, 

76, 11, 192, 169, 153 
•5015 DATA 160, 192, 32, 30, 171, 

166, 63, 165, 64, 76 
•5016 DATA 231, 192, 96, 76, 73, 7 

8, 69, 83, 58, 32 
•5017 DATA 0, 169, 247, 160, 192, 

32, 30, 171, 169, 3 
•5018 DATA 133, 254, 32, 228, 255, 

201, 83, 240, 6, 201 
•5019 DATA 80, 208, 245, 230, 254, 
32, 210, 255, 169, 4 



•5020 DATA 166, 254. 160, 255, 32, 

186, 255, 169, 0, 133 
•5021 DATA 63, 133, 64, 133, 2, 32 

, 189, 255, 32, 192 
'5022 DATA 255, 166, 254, 32, 201, 

255, 76, 73, 193, 96 
•5023 DATA 32, 210, 255, 173, 141, 

2, 41, 1, 208, 249 
'5024 DATA 96, 32, 205, 189. 169, 

13, 32, 210, 255, 32 
.5025 DATA 204, 255, 169, 4, 76, 1 

95, 255, 147, 83, 67 
■5026 DATA 82, 69, 69, 78, 32, 79, 

82. 32, 80, 82 
•5027 DATA 73, 78, 84, 69, 82, 32, 

63, 32, 0, 76 
"5028 DATA 44, 193, 234, 177, 251, 

201, 32, 240, 6, 138 
'5029 DATA 113, 251, 69, 254, 170, 

138, 76, 88, 192, 
'5030 DATA 0, 0, 0, 230, 251, 208, 

2, 230, 252, 96 
'5031 DATA 170, 177, 251, 201, 34, 

208, 6, 165, 2, 73 
'5032 DATA 255, 133, 2, 165, 2, 20 
8, 218, 177, 251, 201 
'5033 DATA 32, 208, 212, 198, 254, 

76, 29, 193, 0, 169 
■5034 DATA 13, 76, 210, 255, 0, 0, 





BUG REPELLENT LINE CODES 
FOR C-64 BUG REPELLENT 



LINE 


# 


5000 


:GJ 


LINE 


# 


5018:FK 


LINE 


# 


5001 


:DL 


LINE 


# 


5019:FL 


LINE 


# 


500 2 


:DB 


LINE 


# 


5020 :CL 


LINE 


# 


5003 


:0F 


LINE 


# 


5021 :GC 


LINE 


# 


5004 


■KN 


LINE 


# 


5022:NN 


LINE 


# 


5005 


.CA 


LINE 


# 


5023:NH 


LINE 


# 


5006 


:CE 


LINE 


# 


5024 :IM 


LINE 


# 


5007 


JE 


LINE 


# 


5025 :KC 


LINE 


# 


5008 


CL 


LINE 


# 


5026: DC 


LINE 


# 


5009 


NB 


LINE 


# 


5027 :ML 


LINE 


# 


5010 


MB 


LINE 


# 


5028 :GN 


LINE 


# 


5011 


EP 


LINE 


# 


5029 :JK 


LINE 


# 


5012 


GH 


LINE 


# 


5030 :NA 


LINE 


# 


5013 


AN 


LINE 


# 


5031 :DM 


LINE 


# 


5014 


NG 


LINE 


# 


5032 :JA 


LINE 


# 


5015 


BF 


LINE 


# 


5033 :FM 


LINE 


# 


5016 


EP 


LINE 


# 


5034: PA 


LINE 


# 


5017 


PJ 


LINES 


) : 


35 
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WHAT'S MY 
JOB? 



FROM PAGE 23 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



10 POK £53 280,11 : P0KE53281 , : PRINT 

CHR$(U) 

20 PRINT" {SC} {CD} ( CD } {CD ) ( CD } (CD } 

";TAB(12);"{CD}(G3]{RV) WHAT'S MY 

JOB? (RO)" 
30 PRINTSPC(9);"{CD1 (CD) {LB)A PRO 
GRAM FOR THE C-64" 

40 PRINTSPC(13);"{CD) {CD)BY B.W.B 
EHLING" 

50 F0RI=0T03000;NEXTI 
60 DIMAS(2000) : F0RI=0T03 : READA$( I 
):NEXTI 

70 PR INT" (SC) {CD) (CD) (CD) (CD] [CD] 
(CD) DO YOU WANT ALL PREVIOUS JOB 
S ENTERED?" 

75 GETK$:IFK$=""THEN75 
80 IFKS<>"Y"THENIOO 
85 PRINTSPC(3);"{CD) { CD) { CD } ( CD) { 
CD){CD)HIT [*] WHEN 'JOBS' TAPE 1 
S READY." 

90 GETK$:IFK$=""THEN90 
95 IFKS = "--'"THENG0SUB2000 
100 PRINT"(SC)";TAB(12) ;"{CD) {G3} 
(RV) WHAT'S MY JOB? (RO)" 
110 PRINT"(CD) (CD) (LG) YOU THINK 
OF A PERSON AND I'LL TRY TO" 
120 PRINT" GUESS WHAT KIND OF WOR 
K THEY DO." 
122 PRINT"{CD) IF THE ANSWER TO A 

QUESTION IS NOT YES" 
124 PRINT" MORE THAN 50% OF THE T 
IME ANSWER NO." 

126 PRINTSPC(7);"(CD}(CD) (OR) HIT 
[L] TO LIST ALL JOBS." 
130 PRINT"(CD)(CD)fLG) ARE YOU RE 
ADY?" 

135 GETAS:IFA$=""THEN135 
140 IFA$="L"0RA$="L"THEN600 
150 IFAS="N"0RA$="N"THEN700 
160 K=l 
170 G0SUB390 
180 IFLEN'(A${K)) = 0THEN700 t 

70 AHOY! 



190 IFLEFT$(A$(K), 
200 PRINT" (RV) (CD) 
HT$(A$(K) ,LEN(A$(K 
210 INPUTAS 
220 A$=LEFT$(A$,1) 
225 IFA$<>"Y"THEN2 
230 PRINT"{SC} (CD) 
}(CD}{CD){CD)(CD) ( 
RY ANOTHER PERSON 
234 GETK$:IFK$=""T 
236 IFK$="Y"ORK$=" 
238 GOT0700 
240 PRINT "(CD) {LG 
HAT IS YOUR JOB?" 
242 PRINT"{CD) (OR) 
S}LETTERS AND(SS}S 
244 INPUTV$ 
246 IFLEN(V$)>19TH 
{CD) (LB) ERROR! (SS 
LONG! !":G0TO242 
250 PRINT"{CD} (LG) 
A YES OR NO QUEST 



2)="/Q"THEN170 
ARE YOU A ";RIG 
))-2); 



40 

(CD) {CD) (CD) (CD 

LG) {RV} T 

[Y/N]? " 

HEN234 

Y "THEN 100 

}I GIVE UP! ! W 

[LIMIT(SS)19{S 
PACES]{YL) (CD)" 

ENPRINTSPC(4);" 
}JOB(SS)TOO{SS) 

PLEASE GIVE ME 
ION TO TELL A " 



260 PRINTV$;" FROM A ";RIGHT$(A$( 

K),LEN(A$(K))-2);"?{CD}" 

265 PRINT"{OR) [ LIMIT { SS } 38 { SS } LE 

TTERS AND{SS}SPACES]" 

270 INPUT"{CD) {YL)";X$ 

2 75 IFLEN(X$)>38THENPRINTSPC(3);" 
(CD) (LB) ERROR! { SS ) QUESTION { SS ) TOO 
(SS)LONG! ! {CD)":G0T0265 

280 PRINT"(LG)FOR A ";V$;" THE AN 

SWER WOULD BE?" 

290 INPUT"(YL)";A$ 

300 A$=LEFT$(A$, 1) : IFA$<>" Y" ANDA$ 

<>"N"THEN280 

310 IFA$="Y"THENB$="N" 

320 IFA$="N"THENB$="Y" 

330 Zl=VAL(A$(0)):A$(0)=STR$(Zl+2 

):A$(Z1)=A$(K):A$(Z1+1)="/A"+V$ 

3 70 A$(K)="/Q"+X$+"/"+A$+STR$(Zl+ 
l)+"/"+B$+STR$(Zl)+"/" 

380 GOTO 100 

390 REM SUBROUTINE TO PRINT QUE 

STIONS 

400 Q$=A$(K) 

410 F0RZ=3T0LEN(Q$) 

415 IFMID$(Q$,Z,1)<>"/"THENPRINTM 

ID$(Q$,Z,1); :NEXTZ 

4 20 INPUTC$ 

430 C$=LEFT$(C$, 1) 

440 IFC$<>"Y"ANDC$<>"N"THEN410 

450 G$="/"+C$ 



.455 F0RX=3T0LEN(Q$)-1 
•460 IFMID$(Q$,X,2)=G$THEN480 
.470 NEXTX 

•480 F0RY=X+1T0LEN(Q$) 
.490 IFMID$(Q$,Y,1) = '7"THEN510 
•500 NEXTY 

.510 K=VAL(MID$(Q$,X+2,Y-X-2)) 
•520 RETURN 

•530 DATA"4",'7QD0 YOU WORK MOSTLY 
OUTDOORS/ Y2/N3",'7ATRUCK(SS}DRIV 

ER" "/ATEACHER" 
.600'PRINT"{CD) {CD){LG}JOBS I ALRE 

ADY KNOW ARE: (CD) {YL}" 
.60 5 X=0 

•610 F0RI=1T0VAL(A$(0)) 
•620 IFLEFT$CA$(I),2)<>'7A"THEN660 
•622 IFX=1THENPRINTTAB(20) ; 
•624 IFX=OTHENPRINT 
•630 F0RZ=3T0LEN(A$(I)) 
•640 IFMID$(A$(I),Z,1)<>'7"THENPRI 

NTMID$(A$(I),Z,1); :NEXTZ 
•650 X=X+1:IFX>1THENX=0 
•660 NEXTI 
•662 PRINT:PRINTSPC(8) ; "{CD) (CD) HI 

T ANY KEY TO CONTINUE." 
•664 GETK$:IFK$=""THEN664 
•670 GOTOIOO 
•700 PRINT" (SC) (CD) (CD) (CD) (CD) (CD 

HCD] DO YOU WANT TO SAVE THE JO 

BS I KNOW?" 
•710 GETK$:IFK$=""THEN710 
•720 IFK$<>"Y"THEN800 
•7 25 PRINTSPC(3);"{CD) (CD) (CD) [CD] 

(CD){CD}HIT [*] WHEN 'JOBS' TAPE 

IS READY." 
.730 GETK$:IFK$=""THEN730 
•735 IFK$="*"THENGOSUB1000 
•800 PRINT" (SC) (CD) (CD) (CD) (CD) (CD 

)(CD)(CD}(CD)(CD}(CD){LG)"SPC(16) 

; "GOODBYE!": FOR r=OTO 1000: NEXTI 
.810 PRINT"(SC)":END 
.1000 OPENl, 1,2, "JOBS A$" 
•1005 R$=CHR$(13) 
•1010 FORI=OTOVAL(A$(0)):PRINT#1 ,A 

$(I)R$:NEXTI 
•1015 CLOSEl :RETURN 
•2000 OPENl , 1 ,0, "JOBS A$" 
•2005 F0RI=0T02000 
•2010 [FI=VAL{A$C0))THEN2025 
•2015 INPUT#1 , A${I) 
•2020 NEXTI 
'2025 CLOSEl: RETURN 

1 =1 



BUG REPELLENT LINE CODES 
FOR WHATS MY JOB? 



LINE 


# 


10: CL 


LINE 


# 


380 :CF 


LINE 


# 


20: AH 


LINE 


# 


390:AB 


LINE 


# 


30:AI 


LINE 


# 


400 :DD 


LINE 


# 


40:DG 


LINE 


# 


410:PJ 


LINE 


# 


50:DB 


LINE 


# 


415:KD 


LINE 


# 


60 : EO 


LINE 


# 


420 :0J 


LINE 


# 


70:GJ 


LINE 


# 


430: AC 


LINE 


# 


75:DL 


LINE 


# 


440: PC 


LINE 


# 


80:CE 


LINE 


» 


450 :KF 


LINE 


# 


85:IF 


LINE 


» 


455:MM 


LINE 


# 


90:E0 


LINE 


# 


460 :FJ 


LINE 


# 


95:BA 


LINE 


# 


470:NK 


LINE 


# 


100:DK 


LINE 


# 


480: OH 


LINE 


# 


110: MB 


LINE 


# 


490 :KF 


LINE 


# 


120: AH 


LINE 


# 


500 :NN 


LINE 


# 


122:AH 


LINE 


# 


510: EL 


LINE 


# 


124:EK 


LINE 


# 


520: IM 


LINE 


# 


126:DK 


LINE 


# 


530 :AP 


LINE 


# 


130:BK 


LINE 


# 


600 :ND 


LINE 


# 


135: HO 


LINE 


# 


605 :DN 


LINE 


# 


140:DK 


LINE 


# 


610:HF 


LINE 


# 


150: ED 


LINE 


# 


620: JG 


LINE 


# 


160:DD 


LINE 


# 


622:JC 


LINE 


# 


170: CI 


LINE 


# 


624:AH 


LINE 


# 


180:PP 


LINE 


# 


630 :JH 


LINE 


# 


190: MB 


LINE 


# 


640 :PM 


LINE 


# 


200 :HN 


LINE 


# 


650 :BL 


LINE 


# 


210tPH 


LINE 


# 


660 :MN 


LINE 


# 


2 20:P0 


LINE 


# 


662:PP 


LINE 


# 


225:EP 


LINE 


# 


664:GL 


LINE 


# 


2 30 :GI 


LINE 


# 


670:CF 


LINE 


# 


234:GI 


LINE 


# 


700: OP 


LINE 


# 


236:IN 


LINE 


# 


710:GL 


LINE 


# 


238:CD 


LINE 


a 


720:CL 


LINE 


# 


240:10 


LINE 


» 


725:IF 


LINE 


# 


242:JO 


LINE 


# 


7 30 :GN 


LINE 


# 


244:AG 


LINE 


» 


735:BH 


LINE 


» 


246:NP 


LINE 


# 


800: CM 


LINE 


# 


250: DB 


LINE 


» 


810:CI 


LINE 


# 


260 :LL 


LINE 


# 


1000:DK 


LINE 


# 


265:PL 


LINE 


# 


1005 :KN 


LINE 


# 


2 70: EN 


LINE 


# 


1010:BG 


LINE 


# 


275: AJ 


LINE 


# 


1015: JG 


LINE 


# 


280: EG 


LINE 


» 


2000: CI 


LINE 


# 


290: PA 


LINE 


# 


200 5 :DK 


LINE 


# 


300 :GF 


LINE 


# 


2010 :0L 


LINE 


It 


310: KM 


LINE 


# 


2015:0J 


LINE 


# 


320:JG 


LINE 


# 


2020 :MN 


LINE 


# 


3 30:MG 


LINE 


# 


2025: JG 


LINE 


# 


3 70 :MC 


LINES 


\ 


99 
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MATH 
DEFENDER 



FROM PAGE 47 



IMPORTANT 

Before typing in an Ahoy! program, refer to the 
first two pages of the program listings section. 



VIC 20 VERSION 



• 1 REM MATH DEFENDER 

•5 POKE36879,238:GOSUB2000:GOSUB21 
CO 

• 10 X = RND(-TI):DIMT%(4) ,X%(3),Y%(3 
),A7o(3),0$(3),P%(3),OP$(A),OXS(4) 

• 13 S = 36876:P0KES + 2,15:F0RN=1T03:P 
%(N)=1 :NEXT 

. lA D$="(HM}{CD}{CD}(CD){CD){CD]{C 
D} (CD) (CD} {CD} (CD) (CD) (CD) {CD} [CD 
}{CD) {CD} {CD} {CD}":SP$=" 

•15 0$(1)="":0$(2)="{CR} (CR) {CR} {C 

R} {CR} {CR) (CR){CR}":0$(3)=0$(2)+" 

{CR} {CR} (CR) {CR) {CR) [CR} [CR} fCR)" 
•17 OX$(l)="+":OX$(2)="-":OX$(3)=" 

X":0X$(4)="/" 
•30 GOTO 102 
•32 PRINTLEFT$(D$,P%(2%))0$(Z%)"{B 

K)"X%(Z%)"{CL}"Y%(Z%)"(CL) (CL} {CL 

)"OP$(Z%): RETURN 
•33 Z%=RND(1)*3+1:PRINTLEFT$(D$,P% 

(Z%))0$(Z%)" ":P%(Z%)=P%(Z%)+ 

1:G0SUB32:RETURN 
.34 IFFLTHENRETURN 
•35 IFA$="F"THENM%=M%-1-(M%<2) :GOT 

037 
•36 M%=M%+1+(M%>2) 
•37 PRINTD$SP$D$0$(M%)" {RV){BK}'' 

":RETURN 
•38 F0RP=1T02E3:NEXT:RETURN 
•39 PRINTLEFT$(D$,P%(M%))0$(M%)Q$: 

RETURN 
.40 REM GEN PROBLEM 
•41 Z=INT(RND(1)*4)+1:IFT%(Z)=0THE 

N41 
•42 X=INT(RND(1)*10) : Y=INT(RND( 1 ) * 

10) :0NZG0SUB43,44,46,47:RETURN 
•43 A=X+Y:RETURN 
.44 D=X+Y:X=D:A=X-Y:RETURN 
'46 A=X*Y:RETURN 
>47 IFY=0THENY=INT(RND(1)*10):G0T0 

72 AHOY! 



47 

48 D=X*Y:X=D:A=X/Y:RETURN 

50 REM GET ANSWER 

51 FL=1;AN$=AN$+A$ 

52 PRINTD$"{CD)"SP$D$0$(M%)"(CD} 
{BK)"AN$:IFLEN(AN$)>2THENG0SUB420 

53 t^E^URN 

60 P'KINTD$"{CD} {CD} ( CD] "SP$D$" [CD 
} {CD} {CD] { RD] SCORE :"SC; : RETURN 

70 IFVAL(AN$)=A%(M%)THENG0SUB400: 

n;::TURN 

71 GOSUB420:RETURN 
100 REM I NIT 

102 G0SUB1000:G0SUB1500:F0RN=1T03 

:G0SUB40:0P$(N)=0X$(Z) 

104 X%(N)=X:Y%(N)=Y:A%(N)=A:NEXT: 

M%=l:GOSUB34 

L^i5_PR]_NTD$"{CU] {RD)£LL££L££££LLL 

1 J 1 fj' ££££" : F0RN = 1T03 : Z% = N : G0SUB32 

:NEXT 

106 F0RP=1T0SK:GETA$:IFA$=""THEN1 
20 

107 IFA$<"0'*0RA$>"9"THEN109 

108 G0SUB51 :G0T0120 

109 IFA$="F"0RA$="J"THENG0SUB34:G 
0T0120 

110 IFA$=CHR$(13)ANDLEN(AN$)>0THE 
NG0SUB70 

120 NEXT;G0SUB33:IFP%(Z%)=18THEN5 

02 

122 

400 

402 



-4:P0KES+1,P 
":G0SUB3 

X%(M%)=X:Y%( 
G0SUB32: AN$= 



G0T0106 
REM RIGHT ANS 

PRINTD$"{CD}"SP$:Q$="{RV] {RD] 
G0SUB39 

403 F0RP=240TO15OSTEP 
:NEXT:P0KES+1,0:Q$=" 
9 

404 P%(M%)=1:G0SUB41: 
M%)=Y:A%(M%)=A:Z%=M%: 
"":FL=0: 

405 0P$(M%)=0X$(Z) :SC=SC+10:G0SUB 
60:RETURN 

420 REM WRONG 

42 2 PRINTD$"{CD}"SP$:FORP=1T050:P 

OKES- 1,1 30: NEXT: POKES- 1,0 

4 24 AN$="":FL=0:SC=SC-5-5*(SC<5): 

G0SUB60:RETURN 

500 REM LOSE 

502 FORP=240T0130STEP- . 5 : POKES , P : 

NEXT: POKES, 

504 PRINT"{HM] (CD] YOUR BASE HAS 
BEEN OVERRUN! ! !":G0SUB38 

505 PRINT"{HM]"SP$SP$SP$"{HM] (CD) 



SUBTRACTION"; ;N 
MULTIPLICATION" 
DIVISION"; :N=4: 

IFT%(N)=1THEN 



PLAY AGAIN? (Y/N)" 

506 GETA$;IFA$="Y"THENRUN10 

507 IFA$<>"N"THEN506 
510 PRINT"{SC)":END 
1000 REM PICK TYPES 

1002 PRINT"{SC)CHOOSE ONE OR MORE 
TYPES: (Y/N)" 

1004 PRINT"{CD)1. ADDITION"; :N=1: 
GOSUB1020 

1005 PRINT" {CD} 2. 
=2:G0SUB1020 

1006 PRINT"{CD)3. 
; :N = 3:G0SUB1020 

1007 PRINT"{CD)4. 
GOSUB1022 

1008 C0=0:F0RN=1T04 
C0=C0+1 

1009 NEXT: IFCO=OTHEN 1002 

1010 PRINT" {SO": RETURN 
1020 REM GET Y/N 

102 2 GETA$:IFA$<>"Y"ANDA$<>"N"THE 

N1022 

10 24 PRINTTAB(18)A$:IFA$="Y"THENT 

%(N)=1 :OP$(N)=Q$ 

1025 RETURN 

1500 PRINT"{SC1 (CD) (CD} {CD}SKILL 

LEVEL?" 

1502 PRINT"{CD} {CD}1. BEGINNER":P 
RINT"(CD} {CD}2. INTERMEDIATE" :PRI 
NT"[CD) {CD}3. EINSTEIN {CD} [CD]" 

1503 INPUTS$:IFS$>"3"0RS$<"1"THEN 
1500 

1504 SK=10+(20*(3-VAL(S$))):PRINT 
"{SC}": RETURN 

2000 PRINT" {SC}"SPC( 225) "{PU)MATH 
DEFENDER"SPC(95)"{BL}BY ANDY VAN 
DUYNE" 

2003 G0SUB38: PRINT" {BK} (CD) {CD} {C 
D}TOUCH {RV}RETURN{RO) . . ." 

2004 GETA$:IFA$<>CHR$(13)THEN2004 
2006 RETURN 

2100 PRINT"(SC) {CDHCD}INSTRUCTIO 
NS?(SS}(Y/N)" 

2102 GETA$:IFA$="N"THENRETURN 

2103 IFA$<>"Y"THEN2102 

2104 PRINT"(SC) (CD)MOVE THE MARKE 
R TO TARGET A PROBLEM." 

2105 PRINT"{CD) (CD) (RV)F(RO} = LE 
FT (RV}J(RO} = RIGHT" 

2106 PRINT"(CD} (CD}ANSWER THE PRO 
BLEM AND PRESS (RV JRETURN ( RO } . " 

2107 PRINT"(CD} (CD}IF THE PROBLEM 
REACHES THE BOTTOM, THE GAME IS 



OVER!":GOSUB2003:RETURN 

BUG REPELLENT LINE CODES 
FOR VIC 20 MATH DEFENDER 



LINE 
LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 

# 
# 
# 
# 
# 
# 

# 

# 
# 
# 
# 

# 

# 
# 

# 
# 
# 
# 

# 
# 
# 
# 
# 
# 
# 



OC 
AK 



1 

5 

10; 

13: 

14; 

15; 

17; 

30:CH 

32:KP 



NO 
HO 
AK 

IL 
JC 



33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41: 
42: 
43: 
44: 
46: 
47: 
48: 
50: 
51: 
52: 
53: 
60: 
70: 
71: 
100 
102 
104 
105 
106 



GM 
FI 

NJ 

MP 

LB 

IB 

AC 

HM 

NL 

NF 

BF 

EC 

CP 

FG 

FG 

GA 

PP 

lA 

IM 

OA 

NJ 

PP 

:LM 

:MM 

:NF 

:BK 

:0K 



107:KP 
108:F0 



109: 
110: 
120: 

122: 
400: 



BB 
IK 
CD 
CL 
PK 



LINE 


# 


402 :A0 


LINE 


# 


403 :FK 


LINE 


# 


404 :AJ 


LINE 


# 


405 :0G 


LINE 


# 


420 :CK 


LINE 


# 


422:BA 


LINE 


# 


424:KD 


LINE 


# 


500: LP 


LINE 


# 


502 :EK 


LINE 


# 


504 :BD 


LINE 


# 


505 :LL 


LINE 


# 


506: DM 


LINE 


# 


507 :CB 


LINE 


# 


5 10: CI 


LINE 


» 


1000:EJ 


LINE 


# 


1002:BF 


LINE 


# 


1004:PP 


LINE 


# 


1005:FH 


LINE 


# 


1006 :KE 


LINE 


# 


100 7 :BA 


LINE 


# 


1008: OH 


LINE 


# 


1009: CO 


LINE 


# 


1010 :DG 


LINE 


# 


1020 :FL 


LINE 


# 


1022:CF 


LINE 


# 


1024:CJ 


LINE 


# 


1025:IM 


LINE 


# 


1500: ME 


LINE 


# 


1502:0N 


LINE 


# 


1503:BB 


LINE 


# 


1504:NN 


LINE 


# 


2000 :NF 


LINE 


# 


2003 :BJ 


LINE 


# 


2004 :F0 


LINE 


# 


2006 :IM 


LINE 


# 


2100 :GJ 


LINE 


# 


2102:KF 


LINE 


# 


2103:HL 


LINE 


# 


2104:FF 


LINE 


# 


2105:JM 


LINE 


# 


2106: IN 


LINE 


# 


2107:AD 


LINES 


: 


85 



C-64 VERSION 



'1 REM MATH DEFENDER 
'2 GOSUB 10000 

5 P0KE532BO,O:POKE53281,0: 

00 



G0SUB21 



AHOY! 73 



. 10 X=RND(-TI):DIMT%(4),X%(5),Y%(5 

),A%(5),0$(5),P%(5),0P$(5),0X$(4) 

• 12 S = 54272:FORN = ST054295:POKEN,0: 

NEXT:POKEN,15:POKES+5,15:P0KES+6, 
255 

•13 F0RN=1T05:P%(N)=1 :NEXT 
• U D$="[HM} (CD) (CD} (CD) (CD} {CD} {C 
D) (CD) (CD) (CD) (CD) {CD} (CD) (CD) (CD 
)(CD}{CD}{CD}{CD}{CD}":SP$=" 



15 0$(1)="":0$(2)="(CR)(CR){CR){C 
R)(CR}(CR}(CR}{CR}":0$(3)=0$(2)+" 
(CR) (CR){CR]{CR)(CR) (CR}{CR} (CR)" 

16 0$(4)=0$(3)+"{CR} {CR)(CR)(CR)( 
CR) {CR} {CR} {CR}":0$(5)=0$(A)+"{CR 
] (CR){CR){CR){CR}(CR){CR}{CR}" 

17 OX$(l)="+":OX$(2)="-":OX$(3)=" 
X":0X${4)="/" 
30 G0T0102 

32 PRINTLEFT$(D$,P%(Z%))0$(Z%)"{Y 
L)"X%(Z%)"{CL}"Y%(Z%)"(CL)(CL)(CL 
)"OP$(Z%) tRETURN 

33 Z%=RND(l)-5+l:PRINTLEFT$(D$,P% 
(Z%))0$(Z%)" ":P%(Z%)=P%(Z%)+ 
1:G0SUB32:RETURN 

34 IFFLTHENRETURN 

35 IFA$="F"THENM%=M%-1-(M%<2) :GOT 
037 

36 M%=M%+1+(M%>4) 

37 PRT.NTD$SP$D$0$(M%)" {RV}(LG}" 
":RETURN 

38 F0RP=1T02E3:NEXT:RETURN 

39 PRINTLEFT$(D$,P%(M%))0$(M%)Q$: 
RETURN 

40 REM GEN PROBLEM 

41 Z=INT(RND(1)*4)+1:IFT%(Z)=0THE 
N41 

42 X=INT(RND(1)*10):Y=INT(RND(I)* 
10):0NZG0SUB43,44,46,47:RETURN 

43 A=X+Y: RETURN 

44 D=X+Y:X=D:A=X-Y:RETURN 

46 A=X*Y: RETURN 

47 IFY=0THENY=INT(RND(1)-^=10) :GOTO 
47 

48 D=X-Y:X=D:A=X/Y:RETURN 

50 REM GET ANSWER 

51 FL=1 :AN$=AN$+AS 

52 PRINTD$"{CD)"SP$D$0$(M%)"{CD} 
{PU)"AN$:IFLEN(AN$)>2THENG0SUB420 

53 RETURN 

60 PRINTD$"{CD) (CD) { CD} "SP$D$" (CD 
}{ CD }( CD }{ LB ) {RV} SCORE :"SC: RETURN 
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70 IFVAL(AN$)=A%(M%)THENG0SUB400: 

RETURN 

•71 G0SUB420:RETURN 
-100 REM INIT 

•102 GOSUB1000:GOSUB1500:FORN=1T05 
:G0SUB40:OP$(N)=0X$(Z) 

•103 X%(N)=X :Y%(N)=Y :A%(N)=A : NEXT: 
M%=1:G0SUB34 

• l^Jl_PRI!iIDl'lKiUj_f RD )_££_L£L£;L£ELL£i" 
LlLLilLLL LL!.,LLLUZtlf.f f f.LLt" 

•105 F0RN=1T05:Z%=N:G0SUB32:NEXT 
•106 F0RP=1T0SK:GETA$:IFA$=""THENI 
20 

. 107 IFA$<"0"0RA$>"9"THEN109 
•108 G0SUB51 :G0T0120 

• 109 IFA$ = "F"ORA$ = "J"THENGOSUB34:G 
0T0120 

•110 TFA$=CHR$(13)ANDLEN(AN$)>0THE 
NG0SUB70 

• 120 NEXT:G0SUB33:IFP%(Z%) = 19THEN5 
01 

•122 GOTO 106 

•400 REM RIGHT ANS 

•402 PRINTD$"(CD}"SP$:QS="(RV) (RD] 

*****":G0SUB39:P0KES+4,129:F0RP=1 

00T020STEP-4 
•403 P0KES+1,P: NEXT :P0KES+1,0: POKE 

S+4,128:Q$=" ":G0SUB39 
•404 P%(M%)=1 :G0SUB41 : X%(M%) =X : Y%( 

M%)=Y:A%(M%)=A:Z%=M%:G0SUB32:AN$= 

"":FL=0 
.405 OP$(M%)=OX$(Z):SC=SC+10:GOSUB 

60: RETURN 
•420 REM WRONG 
.42 2 PRINTD$"{CD)"SP$:P0KES+4,33:F 

0RP=1T050:P0KES+1,10:NEXT:P0KES+1 

,0:POKES+4,32 
•424 AN$="":FL=0:SC=SC-5~5*(SC<5): 

G0SUB60: RETURN 
.500 REM LOSE 
•501 POKES+4,33 
•502 F0RP=100T010STEP-.5:P0KES+1,P 

:NEXT:POKES+l,0:POKES+4,3 2 
•504 PRINT" {HM) (CD) YOUR BASE HA 

S BEEN OVERRUN! ! !'*:GOSUB38 
. 505 PR1NT"(HM)"SP$SP$SP$"(HM} (CD) 

PLAY AGAIN? (Y/N)" 
- 506 GETA$: IFA$ = "Y"THENRUN10 
•507 IFA$<>"N"THEN506 
•510 PRINT"{SC}"rEND 

• 1000 REM PICK TYPES 

•1002 PRINT"{SC} (LB)CHOOSE ONE OR 
MORE TYPES: (Y/N)" 



1004 

GOSUB 

1005 

= 2:G0 

1006 

; :N = 3 

1007 

GOSUB 

1008 

CO=CO 

1009 

1010 

1020 

1022 

N1022 

1024 

%(N) = 

102 5 

1500 

LEVEL 

1502 

RINT" 

NT"{C 

1503 

1500 

1504 

{SC}" 

2003 

fRV)R 

2004 

2006 

2100 

CTION 

2102 

2103 

2104 

R TO 

2105 

FT { 

2106 

BLEM 

2107 

EACHE 

S OVE 

2108 

10000 

10001 

10002 



PRINT"[CD}1. ADDITION"; :N=1 : 

1020 

PRINT"{CD}2. SUBTRACTION"; :N 

SUB1020 

PRINT" {CD} 3. MULTIPLICATION" 

: GOSUB 1020 

PRINT"(CD}4. DIVISION"; :N=4: 

102 2 

C0=0 : FOR N = 1 T04 : I FT% ( N ) = 1 THEN 

+ 1 

NEXT:IFC0=0THEN1002 

PRINT"(SC}":RETURN 

REM GET Y/N 

GETA$:IFA$<>"Y"ANDA$<>"N"THE 

PRINTTAB( 18)A$:IFA$="Y"THENT 

1 :OPS(N)=Q$ 

RETURN 

PRINT" {SO {CD} (CD) {CD) SKILL 

?" 

PRINT"{CD}{CD}1. BEGINNER":? 

{CD){CD}2. INTERMEDIATE":PRI 

D){CD}3. EINSTEINfCD} (CD}" 

INPUTS$:IFS$>"3"0RS$<"1"THEF 



**: 



SK=5+(10*( 
: RETURN 
PRINT"{WH} 
ETURN{R0} , 
GETA$:IFA$ 
RETURN 
PRINT"{SC) 
S?{SS)(Y/N 
GETA$:IFA$ 
IFA$<>"Y"T 
PRINT"{SC) 
TARGET A P 
PRINT" {CD} 
RV}J(RO} = 
PRINT"{CD} 
AND PRESS 
PRINT"{CD} 
S THE BOTT 
R!" 

GOSUB2003: 
REM TITLE 
P0KE53280 
PRINT" (SC 



* * **}[:: 



S* 



3-VAL(S$))):PRINT" 

{CD} {CD} {CD}TOUCH 

<>CHR$(13)THEN2004 

{CD) {CD}{GN}INSTRU 

)" 

="N"THENRETURN 

HEN2102 

{CD}MOVE THE MARKE 

ROBLEM." 

{CD}{RV)F{RO) = LE 

RIGHT" 
(CD}ANSWER THE PRO 
(RV)RETURN{RO} ." 
{CD}IF A PROBLEM R 
OM, THE GAME I 

RETURN 

PAGE 
,0:P0KE53281,0 
}(CD}{CD){RD) 

!?E ^ I'sr it 5^ iAi J» ii. ij^ ktrf iLLi 1 1 
irft V|^ rf|^ ri|« ^ f^ ^^ ^fi r— ^^ ^^ I ' 



.*^ J* J* *U Oj .^ Jj J. J> J, (I 
-i- ^l- '*■> '1^ 'I- 'l' 'O »f» j;S ^f. " 

• 10006 PRINT"{HM}(CD}{CD){CD) (CR) { 
CR}{CR){CR) {CR} {CR}{CR){YL)"; 

• 10007 PRINT" {RV} 

It 

• 10008 PRINT"{CR) {CR} (CR) (CR) fCR} ( 

CR}(CR}{RV) 
II 

• 10009 PRINT"{CR} {CR) (CR) {CR) {CR) { 

CR}(CR){RV) **MATH DEFENDER** 
ti 

• 10010 PRINT"{CR} {CR} (CR) (CR) (CR} { 

CR) {CR} (RV) 
II 

. 10011 PRINT"{CR) (CR) (CR) {CR) (CR) { 

CR}{CR}{RV) 
tt 

• 10013 G0SUB38 

• 10019 G0SUB38 

• 10020 PRINT"(CD} {CD} (CD) {CD} {LB} 

BY ANDY VAN DUYNE" : GOSU 
B2003:PRINT"{SC}": RETURN 

BUG REPELLENT LINE CODES 
FOR C-64 MATH DEFENDER 



10003 F0RN=1T05 

10004 PRINT" 

*":NEXT 

10005 PRINT" 



**=;;******=;!:,'=**** 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



1 :CC 

2:11 

5: OK 

10: CD 

12:01 

13:JJ 

14:AP 



15 

16: 

17: 

30: 

32: 

33: 

34; 

35: 

36: 

37; 

38; 

39: 

40; 

41: 

42: 

43: 

44; 



IL 
BI 

JC 
CH 
IF 
IL 
FI 
NJ 
NB 
AJ 
IB 
AC 
HD 
NL 
NF 
BF 
EC 



46:CP 
47:FG 
48:FG 

50: EN 



LINE 
LINE 
LINE 
LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



51 : 

52: 

53: 

60: 

70: 

71: 

1 00 

102 

103 

104 

105 

106 

107 

108 

109 

110 

120 

122 

400 

402: OP 

403 :AF 

404 :PD 

405 :0G 

420 :CE 

422:AH 

424:KD 

500: MO 

501 :FL 



PP 

PI 

IM 

KF 

NJ 

PP 

:MF 

:FG 

:NF 

:NC 

:H0 

:0K 

:KP 

:F0 

:BB 

:IK 

:BL 

:CL 

:AP 
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LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 
# 
# 
# 

# 
# 
# 
# 
# 
# 
# 

# 



502 
504 
505 
506 
507 
510 

1 000 
1002 
lOOA 
1005 
1006 
1007 
1008 
1009 
1010 
1020 
1022 
10 24 
1025 
1500 
1502 
1503 
1504 

2 003 
2004 



BF 

FD 

CK 

DM 

CB 

CI 
DF 
AN 
PF 
PF 
GG 
LG 
OH 
CO 
DG 
EC 
CF 
CJ 
IM 
NA 
HP 
BB 
JJ 
EB 
FO 



BRISK 

FROM PAGE 48 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



2006 :IM 

2100:FI 

2102: 

2103: 

2104: 

2105: 

2106: 

2107: 

2108: 

10000 

10001 

10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 

10011 

10013 

1 00 1 9 

10020 

105 



KF 

HL 

AO 

LL 

DO 

NI 

CB 

:CM 

:BH 

:PJ 

: JF 

:NH 

:IH 

:0F 

:N0 

:GH 

:EM 

:GH 

:GH 

:PN 

:PN 

:0C 



IMPORTANT 

Before typing in an Ahoy.' program, refer to tfie 
first two pages of the program listings section. 



•2 PRINT"{SC]":G0SUB50000 ,^ 

. 3 PRINT"{CD} (CD) (CD) {CD} {CD*} [CD] { 
CD} (CD] {CD) (CD) {CR} {CR] {CR} {CR}W0 
ULD YOU LIKE INSTRUCTIONS Y/N" 

'4 GET Q$:IFQ$="Y"THEN60000 

' 1' IFQ$ = ""THEN4 

• 6 PRINT"{SC}":P0KE53 2B1, 1 :P0KE53 2 
80,2 

• 7 DIMP(2,39):DIMC$(39) 

• 10 FORW=55296T056295:P0KEW,0:NEXT 
W 

• 11 SD=54272:FORL = SDTOSD+24:P0KEL, 
0:NEXT:POKESD+5,9:POKESD+6,0:P0KE 
SD+24, 15:L=0 

• 15 TM=0:TC=0:P0KE1708 + 54272.4:P0K 
E1788+54272,4 

' 17 FOR L0=1T00STEP-1 

76 AHOY! 



2 A=0 : D=0 ; M=0 : G=0 : TY=0 : TP=0 : X Y=0 

: J = 560 39: AB = 5 5687: AE = 5 5689 

21 B=1509:N=1389 

37 GOSUB 1000:GOSUB 5000 

50 FOR Y=0T039:C$(Y)="":NEXTY 

100 F0RQ=0T06 

A = A+1 

R=INT(RND(1)*40) 

IFC$(R)=STR$(R)THEN103 

C$(R)=STR$(R) 

IFQ=6THENF0RK=0T02:TR(K,1)=P( 
:NEXTK:GOSUB6000:T(9)=TR(2,l) 



'101 
■103 
'105 
'110 
'115 

K,R) 

:G-OT0130 

122 IFA=L0THEND=D+l:FORK=0TO2:PL( 

K,D)=P(K,R) :NEXTK:GOSUB3000:GOT01 

30 
.12 5 M=M+1:F0RK=0T02:MC(K,M)=P(K,R 

):NEXTK:A=(L0-1) 
■127 ON M GOSUB 1400,1500,1600 
'130 NEXTQ: GOSUB 7000: GOSUB 9000 

131 WN=LO:IFWN=0THENGOSUB100O0:GO 

SUB8000:ZX=0:GOTO 133 
'132 GOSUB8000:GOSUB10000 
IFWN=0THEN28000 
VL(1)=T(4):VL(2)=T0 
SU(1)=MC{2,I1):SU(2)=T(5) 
GS(1)=SU(1) :IFSU(1)=T(9)THENS 



•133 
.134 
•135 
• 136 

U(l)=l:G0TO138 
•137 SU(1)=0: 
•138 GS(2)=SU(2) 

U(2)=l:GOT0140 
'139 SU(2)=0 

GOSUB 12 000 



IFSU(2)=T(9)THENS 



140 

141 

142 

143 
■150 
.151 

){CD 



GOSUB 18000 
G=0:IFAA=1THEN30000 
IFXY=1THEN250 
FOR X = 7T039 -^ 

PRINT" (HM} (CD) (CD) (CD) (CD) (CD 
{CD)(CR) {CR} (CR) (CR) (CR) (CR) 



{CR] (CR) (CR) (CR) (CR) (CR) (CR) (CR) [^a 
CR) {CR} (CR) {CR} (CR) (CR]{CR) {CR) {C''~ 
R)(CR){CR) {CR){CR){CR}{CR} {CR}{CR 
] (CR) (CR) (CR]";X+1 
152 G=G+1 

R=INT(RND(1)*40) 

IFC$(R)=STR$(R)THEN200 

C$(R)=STR$(R) 

IFTES=0THEN240 

FORK=OT02:PL(K,I)=P(K,R) :NEXT 



'200 
■ 210 
■220 
.230 
'233 
K 

.234 
'235 
'236 



TES = 

G0SUB14000 

IFX=39THEN27000 



■ 


•237 GOTO 249 


390, 


67:P0KE1391 


67:POKE1392,75:RE 




■240 F0RK=0T02:MC(K,I1)=P(K,R):NEX 


TURN 








TK 


• 850 


POKE1314,66 


P0KE1318,66:P0KE1 




•241 TES=1 


274, 


66:P0KE1354 


66:POKE1234,85:PO 




•245 GOSUB 16000 


KE1394,74 






•247 IFX=39THEN27000 


•852 


P0KE1235,67 


POKE1236,67:POKEl 




•249 IFG=2THENXY=1:G0T025000 


237, 


67:P0KE1238 


,73:POKE1278,66:PO 




• 250 NEXTX 


KE1358,66 






• 300 POKE1340,32 


• 854 


P0KE1395,67 


P0KE1396,67:P0KE1 




• 305 P0KE1339,32 


397, 


67:P0KE1398 


75:RETURN 




•306 P0KE1415,32:P0KE1497,32 


.860 


P0KE1320,66 


:P0KE1324,66:P0KE1 




• 310 TM=TP:TC=TY 


280, 


66:P0KE1360 


66:P0KE1284,66:P0 




•315 POKE 1709,32:POKE1789,32 


KE1364,66 






• 330 PRINT"{HM){CD)(CD] {CR}{CR}(CR 


.862 


P0KE1244,73 


P0KE1243,67:P0KE1 




,» }{CR}{CR){CR}{CR) (CR){CR){CR){CR) 


242, 


67:P0KE1241 


,67:P0KE1240,85 




THE SECOND HALF" :RESTORE : TY=0 : TP= 


•864 


POKE1400,74 


:POKE1401,67:POKE1 




0:AA = 0:GOSUB7500:NEXTLO ^'^ 


402, 


67:POKE1403 


67:P0KE1404,75:RE 




3 40 PRINT" (HM) { CD ) ( CD ) { CD } { CD ] {CD 


TURN 








] {CD) (CD) {CD} {CD} (CD) {CD] (CD) (CD) 


.960 


POKE 1800, 66 


POKE1804,66:POKE1 




{CD}(CD} (CD) (CD) {CD}(CD} {CD){CD) { 


760, 


66:P0KE1840 


,66:POKE1764,66:PO 




CD) (CD) {C^jj_C,R}IT'S A DRAW":G0T04 


KE1844,66 






0000 


. 962 


POKE1724,73 


POKE1723,67:POKEl 




. 500 END 


722, 


67:POKE1721 


67:P0KE172O,85 




• 700 P0KE1472,66:P0KE1512,66:P0KE1 


. 964 


P0KE1880,74 


:P0KE1881,67:P0KE1 




5 5 2,66:P0KE1468,66:POKE1508,66:P0 


882, 


67:P0KE1883 


67:P0KE1884,75:RE 




KE1548,66 


TURN 








•720 POKE1432,73:POKEl431,67:POKEl 


. 970 


P0KE1806,66 


P0KE1810,66:P0KE1 




430,67:P0KE14 29,67:P0KE1428,85 


766, 


66:P0KE1846 


,66:P0KE1770,66:P0 




• 7 22 POKE1588,74:POKE1589,67:P0KEl 


KE1850,66 






590,67:P0KE1591,67:P0KE1592,75:RE 


• 972 


POKE1730,73 


POKE1729,67:POKEl 




TURN 


728, 


67:POKE1727 


67:P0KE1726,85 




.7 50 P0KE1514,66:P0KE1518,66:P0KE1 


. 974 


P0KE1886,74 


:P0KE1887,67:P0KE1 




474,66:P0KE15 54,66:P0KE1434,85:P0 


888, 


67:P0KE1889 


,67:P0KE1890,75:RE 




KE1594,74 


TURN 








.752 P0KE1435,67:P0KE1436,67:P0KE1 


• 1000 


FORT=0T039 




437, 67 : POKEl 438, 73 :POK £1478,66: PC 


• 1005 


FORU=0T02 




KE1558,66 


• 1010 


READ P(U,T) 1 


. 7 54 POKE1595,67:POKE1596,67:POKEl 


•1015 


NEXTU 




597, 67 :P0KE1 598, 75: RETURN 


• 1020 


NEXTT 




• 760 POKE1520,66:POKE1524,66:POKE1 


. 1030 


RETURN 




480, 66 : POKE 1560, 66 :POK El 484, 66; PC 


• 1100 


F0RL=-1T03 


:P0KE1229+L,32:NEX 


KE1564,66 


T 






. 762 POKE1444,73:POKE1443,67:POKEl 


• 1105 


F0RL=-1T03 


:P0KE1269+L,32:NEX 


44 2,67: POKE 1441 , 67 : POKE 1440 , 85 


T 






• 764 POKE1600,74:POKE1601,67:POKE1 


• 1 1 1 


F0RL=-lTO3 


:P0KE1309+L,32:NEX i 


60 2,67:POKE1603,67;POKE1604,75:RE 


T 






TURN 


.1120 


F0RL=-1T03 


:P0KE1349+L,32:NEX 


. 800 POKE127 2,66:POKE1312,66:POKEl 


T 






3 5 2, 66 : POKE 1268, 66: POKE 1308, 66 :P0 


• 1125 


F0RL=-1T03 


:P0KE1389+L,32:NEX 


KE1348,66 


T 






. 820 POKE1232,73:POKE12 31,67:POKEl 


•1130 


RETURN 




230, 67 :P0KE1 229, 67: POKE 1228, 85 


• 1200 


FORL=-1T03 


POKE1235+L,32:NEX 


. 822 P0KE1388,74:P0KE1389,67:P0KE1 


T 
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• 1205 F0RL=-1T03:P0KE1275 + L,32:NEX 
T 

•1210 FORL=-1T03:POKE1315+L,32:NEX 

T 
. 1220 F0RL=-1T03:P0KE1355+L,32:NEX 

T 

• 1225 F0RL = -1T03:P0KE1395 + L,32:NEX 
T 

. 1230 RETURN 

1300 F0RL=-1T03:P0KE1241+L,32:NEX 

T 
. 1305 F0RL=-1T03:P0KE1281+L,32:NEX 

T 

• 1310 FORL = -IT03:POKE1321 + L,32:NEX 
T 

• 1320 F0RL=-1T03:F0KE1361+L,32:NEX 
T 

• 1325 F0RL=-1T03:P0KEU01 + L,32:NEX 
T 

• 1330 RETURN 
•1400 GOSUB 800 

• U0 2 F0RL=0T02:P0KE1269 + L + 54 2 7 2,6 
:POKE1269+L,102:NEXT 

« 1410 FORL=0TO2:P0KE13O9 + L + 54272,6 
:P0KE1309+L,102:NEXT 

• 1420 FORL = 0T02:POKE1349 + L+54272,6 
:POKE1349+L,102:NEXT 

• 1430 RETURN 
•1500 GOSUB 850 

• 1502 FORL=OT02:POKE1275 + L+54272,6 
:POKE1275+L, 102:NEXT 

• 1 510 F0RL=0T02 : POKEl 315+L+542 72 , 6 
:POKE1315+L,102:NEXT 

• 1520 F0RL=0T02:P0KE1355+L+54272,6 
:POKE1355+L, 102:NEXT 

.1530 RETURN 
•1600 GOSUB 860 

•1602 FORL=0TO2:P0KE1281+L+54 2 7 2,6 
:POKE1281+L,102:NEXT 

• 1610 FORL=OT02:POKE1321+L+54272,6 
:POKEI321+L, 102:NEXT 

. 1620 F0RL=0T02:P0KE136l + L+54272,6 
:P0KE1361+L, 102:NEXT 

• 1630 RETURN 

•2000 DATA 32,1,65,32,50,65,32,51, 
65,32,52,65,32,53,6 5,32,54,65,32, 
55,65 

•2010 DATA 32,10,65,32,17,65,32,11 

.65 
•2020 DATA 32,1,83,32,50,83,32,51, 

83,32,52,83,32,53,83,32,54,83,32, 

55,83 
•2030 DATA 32,10,83,32,17,83,32,11 
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,83 

2040 DATA 32,1,88,32,50,88,32,51, 

88,32,52,88,32,53,88,32,54,88,32, 

55,88 

2050 DATA 32,10,88,32,17,88,32,11 

,88 

2060 DATA 32,1,90,32,50,90,32,51, 

90 , 32 , 52 , 90 , 32 , 53 , 90 , 32 , 54 , 90 , 32 , 

55,90 

2070 DATA 32,10,90,32,17,90,32,11 
,90 

3000 ON D GOSUB 700,750,760 

3001 IFPL(2,D)=900RPL(2,D)=83THEN 
GOSUB11000:GOTO300 5 

3002 P0KE(B-4O+54272) ,0:P0KEB+l+5 
42 72,0:POKEB+42+5427 2,0 

3005 P0KEB-40,PL(2,D) :FORL=1T01 :P 

OKEB+L , PL( L , D) : NEXTL : POKEB+42 , PL( 

2,D):B=B+6 

3010 RETURN 

5000 POKE 1630,49:P0KE1636,50:P0K 

E1642,51 

5010 POKE 1194,20:POKE1195,8:POKE 

11 96, 5: POKE 1 1 98, 4 : POKEl 199 , 5 : POK 

El 200, 1 

5020 POKE1201,12 

5030 P0KE1710,25:P0KEI711 ,15:P0KE 

1712,21:POKE1713, 18 

5040 POKEl 715, 16: POKEl 716, 12: POKE 

1717,1: POKEl 7 18, 25: POKEl 708, 81 

5050 POKE1449,20:POKE1450, 18:P0KE 

1451 ,21 :P0KE145 2, 13:P0KE14 53,16 

5100 POK El 529, 19: POKE 1530, 3: POKEl 

531, 15: POKEl 532, 18: POKEl 533, 5 

5110 POKE1608,25:POKE1609,15:POKE 

1610,21 

5120 POKE1613, 13 : P0KE1614 , 5 : QB=1 3 

26:QV=54272 

5130 P0KEQB+QV,0:P0KEQB,3:P0KEQB+ 
l+QV,0:P0KEQB+l,l:P0KEQB+2+QV,O:P 
OKEQB+2,18 

5131 POKEQB+3+QV,0:POKEQB+3,4:POK 
EQB+4+QV,0:P0KEQB+4,19 

5132 POKEQB+6+QV,0:POKEQB+6,16:PO 
KEQB+7+QV,0:POKEQB+7,12:POKEQB+8+ 
QV.O 

5133 POKEQB+8, 1 : P0KEQB+9+QV , : POK 
EQB+9,25:P0KEQB+lO+QV,O:POKEQB+10 
.5 

5134 P0KEQB+11,0:P0KEQB+11,4 
5200 RETURN 

6000 G0SUB6100 

6001 IFTR(2, 1)=900RTR(2, 1)=83THEN 



POKE 5 568 7, 10: P0KB5 5 728, 10:POKE55 7 

69,10 

6005 POKE1415,TR(2,l) 

6008 FORL = 1T01 : P0KE1455 + L , TR( L , 1) 

: NEXTL : POKE 1455 + 42, TR( 2,1) 

6010 RETURN 

6100 POKE 1498, 66: POKE 1458, 66: POKE 

141 8, 66 : POKE 1378, 73 :P0KE1 538, 75 

6105 POKE1377,67:POKE1376,67:POKE 

1375,67:POKE1537,67:POKE1536,67:P 

0KE1535,67 

6110 POKE 1534, 74: POKE 1494, 66: POKE 

1454,66:POKE1414,66:P0KE1374,85 

6190 RETURN 

7000 POKE 1194,32:P0KE1195,32:P0K 
E1196,32:P0KE1198,32:P0KE1199,32: 
P0KE1200,32 

7001 POKE 1201,3.2 

7010 POKE 1193, 12:P0KE1194,5:P0KE 

1195,20:POKE1196,39:POKE1197,19 

7020 POKE1199,16:POKE1200, 12: POKE 

120 1,1: POKE 1202, 25: RETURN 

7 500 POKE II 93, 32: POKE 11 94, 32: POKE 

1195,32:P0KE1196,32:POKE1197,32:P 

0KE1199,32 

7501 POKE55687,0:POKE55728,0:P0KE 
55769,0 

7502 P0KE1200, 32 : POKE1201 , 32 : POKE 
1202,32 

7 503 XA=0:XB=0:XC=0:X=0 

7 504 POKE1194, 1 9 : POKEl 195 , 8 : POKEl 

196,21 :POKE1197,6:POKE1198,6:POKE 
1199,12 

7506 POKE1200,5:FORRY=1T04000:NEX 

TRY 

7510 POKEl 193, 32: POKEl 194, 32: POKE 

1 195. 32 : POKEl 196, 32: POKEl 197, 32 :P 

0KE1198,32 

7512 POKE1199,32:POKE1200,32:GOSU 
B14100:GOSUB14200:GOSUB14300:RETU 

RN 

7800 IFT(1)>125ANDT(6)<>T(9)THEN1 
02 70 

7810 IFT(2)>125ANDT(7)<>T(9)THEN1 
0271 

7820 IFT(3)>12 5ANDT(8)<>T(9)THEN1 

02 7 2 

7830 GOTO 10261 

8000 GET I$:IFI$=""THEN8000 

8001 IFVAL(I$)<10RVAL(I$)>3THEN80 
00 

. 8002 I=VAL(I$):IF(I=XA)OR(I=XB)OR 
(I=XC)THEN8000 



.8003 POKESD+1, (15*1) :POKESD, 120:P 

OKESD+4, 17 :F0RT=1 TO 100: NEXT: POKES 

D+4,16 
•8004 IFPL(2,I)=90ORPL(2,I)=83THEN 

FORL=JTOJ+82STEP41:P0KEL-6,10:NEX 

T:G0T08006 
•8005 F0RL=JT0J+82STEP41 : POKEL-6,0 

iNEXT 
•8006 REM 

• 8007 IFI=.= 1THENGOSUB8100:GOT08012 
•8008 IFI=2THENGOSUB8200:GOTO8012 
•8009 IFI-3THENG0SUB8300 

•8012 T0=0 

•8013 GOSUB960:POKE1761,PL(2,I) : FO 

RK=1T01:POKE1802,PL(K,I):NEXT:POK 

E1843,PL(2,I) 

• 8015 F0RK = 0T01 : T0=T0+PL( K , I ) : NEXT 
K 

•8016 T(5)=PL(2,I) 

•8017 IFTO=33THENTO=150:F=11:GOT08 
040 

•8018 IFT0=83THENT0=125:F=10:G0T08 
040 

• 801 9 I FT0=43THENT0=1 1 5 : F = 4 : G0T080 

40 

•8020 IFT0=42THENT0=110:F=3:GOT080 

40 
•8021 IFT0=49THENT0=100:F=2:G0TO8O 

40 
•8030 F=0 
•8040 G0T08900 
•8100 F0RL=-1T03:P0KE1429+L,32 :NE 

XT 
•8105 F0RL=-1T03:P0KE1469+L,32 :NE 

XT 
•8110 F0RL=-1T03:P0KE1509+L,32 :NE 

XT 

•8120 FORL=-lT03:POKE1549+L,32 :NE 
XT 

•8125 F0RL=-1T03:P0KE1589+L,32 :NE 

XT 
•8130 RETURN 
•8200 FORL=-lT03:POKE1435+L,32 :NE 

XT 
•8205 F0RL=-1T03:P0KE1475+L,32 :NE 

XT 

•8210 F0RL=-1T03:P0KE1515+L,32 :NE 

XT 
•8220 F0RL=-1T03:P0KE1555+L,32 :NE 

XT 
•8225 F0RL=-1T03:P0KE1595+L,32 :NE 

XT 
•8230 RETURN 
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•8300 F0RL=-1T03:P0KE1441+L,32 :NE 
XT 

•8305 F0RL=-1T03:P0KE1481+L,32 :NE 

XT 
•8310 F0RL=~1T03:P0KE1521+L,32 :NE 

XT 
•8320 FORL=-1T03:POKE1561+L,32 :NE 

XT 
•8325 F0RL=-1T03:P0KE1601+L,32 :NE 

XT 
•8330 RETURN 

•8900 IFX=>39THENG0SUB62500 
•8999 RETURN 

• 9000 FL = 

•9010 IFPL(2,l)=TR(2,l)THENFL=l:GO 

T09999 
•9020 IFPL(2,2)=TR(2, 1 )THENFL=1 : GO 

T09999 
•90 30 IFPL(2,3)=TR(2,1)THENFL=1 
•9999 RETURN 

• 10000 F0RV=1T03 

• 10100 FORK = OT01 

• 10150 T(V)=T(V)+MC(K,V) 
' 102 00 NEXTK 

• 10205 T(5+V)=MC(2,V) 

• 10210 IFT(V)=33THENT(V) = 150:G0T01 
02 5 5 

• 10220 IFT(V) = 83THENT(V) = 125:G0T01 
0255 

• 10230 IFT(V)=43THENT(V) = 115:G0T01 
02 5 5 

• 10240 IFT(V)=42THENT(V) = 110:G0T01 
0255 

•10250 IFT(V)=49THENT(V)=100 
•10255 NEXTV:G0SUB9000 

• 10256 IFZX = 0ANDFL = 0ANDX<39THEN780 


•10261 IFZX=0THEN10301 

• 10262 IF(T(5)=T(9))THEN10300 

• 10263 SE(1) = 0:SE(2) = 0:SE(3)=0 

• 10264 1FT(1)>T0ANDT(6)=T(5)THENSE 
(1)=T(1) 

• 10265 IFT(2)>TOANDT(7)=T(5)THENSE 
(2)=T(2) 

•10267 IFT(3)>T0ANDT(8)=T(5)THENSE 
(3)=T(3) 

• 10268 IFSE(1)>00RSE(2)>00RSE(3)>0 
THEN 109 70 

•10269 G0T010277 

•10270 11=1 :T(4)=T(1) :G0TO10705 

•10271 Il=2:T(4)=T(2):GOTO10705 

•10272 11=3 :T(4)=T( 3) :GOTO 10705 

•10277 IFTO>=125THEN10280 
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• 10278 IF(T0=115)AND(X>20ANDX<36)T 
HEN10280 

• 10279 GOTO 10300 

• 10280 SY(l) = 2OO:SY(2) = 20O;Sy{3) = 2 
00 

•10281 IFT(6)=T(9)THENSY(1)=T(1) 
•102 82 IFT(7)=T(9)THENSY(2)=T(2) 
'•102 84 IFT(8)=T(9)THENSY(3)=T(3) 
•10285 IFSY(l)<.200ORSY(2)<2O0ORSY( 
3X2O0THEN1O990 

• 10286 GOTO 10301 

• 10300 IFT0=125ANDT(5)=T(9)THEN102 
63 

•10301 IFT(1)<=T(2)THEN10400 
•10310 IFT(2)<=T(3)THEN10500 
•10320 T(4)=T(3) :I1=3:G0T0 10700 
•10400 IFT(1)<=T(3)THENT(4)=T(1):I 

1=1: GOTO 10700 
•10410 T(4)=T(3):Il=3:GOTO 10700 
•10500 T(4)=T(2) :IU2:GOT010700 
•10700 IFT ( 5+1 1)=T( 9) THEN 10930 
•10705 IFT(4)=150THEN0=11 :GOT01090 



• 1 7 20 I FT ( 4 ) = 1 25THEN0= 1 : GOTO 1 090 


• 10740 rFT(4) = 115THEN0 = 4:GOTO10900 
•10760 rFT( 4 )=110THEN0=3: GOTO 10900 

• 10780 IFT(4) = 100THENO=2:GOT010900 

• 10800 = 

•10900 IFI1=1THENG0SUB1100:G0T0109 
15 

• 10905 IFIU2THENGOSUB1200:G0T0109 
15 

•10910 IFI1=3THENGOSUB1300 

•10915 P0KE1790,13:P0KE1791,25:P0K 

E1793,16:P0KEI794, 12:POKE1795, 1:P 

0KE1796,25 
.10916 POKESD+1 , (15*11 ):F0KESD, 120 

:P0KESD+4, 1 7 : F0RT=1T0100 : NEXT : POK 

ESD+4.i6 
.10918 IFMC(2,I1) = 900RMC(2,U) = 83T 

HENFORL=JTOJ+82STEP41 :POKEL, 10:NE 

XT: GOTO 10920 

• 10919 F0RL = JT0J+82STEP41 :POKEL,0: 
NEXT 

• 10920 GOSUB970 

•109 22 P0KE1767,MC(2,I1):F0RK=1T01 
:POKE1808,MC(K,I1):NEXT:POKE1849, 
MC(2,I1) 

• 10925 G0T010999 

• 10930 XX = I1:IFX = 39THEN10705 
•10931 BB=6-I1 

•10932 IFBB=5THEN10940 



. 10933 IFBB 

' 1093A IFBB 

' 10940 IFT( 

3) :G0T0109 

109A2 11=2 

10944 IFT( 

NI1=XX:T(4 

. 10946 GOTO 

10950 IFT( 

3) : GOTO 109 

.10952 11=1 

'10954 IFT( 

NT1=XX:T(4 

'10956 GOTO 

'10960 IFT( 

2) : GOTO 109 

'10962 11=1 

'10964 IFT( 

NI1=XX:T(4 

10966 GOTO 



•10970 
•10974 
.10976 
•10980 
•10982 
'1098 5 
•10990 
•10991 
•10992 
•10993 
•10994 
•10995 
•10999 
•11000 
+54272 



IFSE 
IPSE 
GOTO 
IFSE 
GOTO 
GOTO 
IFSY 
IFSY 
GOTO 
IFSY 
GOTO 
GOTO 
RETU 
POKE 
.10: 



•11010 RETU 
•12000 IFSU 
•12100 IFSU 
•12200 IFVL 

THEN12500 
'12300 GOTO 
•12400 IFAA 

) = 100: NEXT 
•12402 RETU 
•12 500 

5 50 
.12525 GOSU 
•12550 GOTO 
•12600 IFWN 

650 

•12625 GOSU 
•12650 GOTO 
•14000 B=15 



=4THEN 
=3THEN 
2)>T(3 
44 

:T(4) 
5+Il)= 
)=T{I1 
10705 
1)>T(3 
54 

:T(4) 
5+Il)= 
)=T(I1 
10 705 
1)>T(2 
64 

:T(4)= 

5+Ii)= 

)=T(I1 

10705 

(1)>SE 

(2)>SE 

10272 

(1)>SE 

10272 

10271 

dXSY 

(2)<SY 

10272 

dXSY 

10272 

10271 

RN 

(B-40+ 
P0KEB+ 
RN 
(1)>SU 

dxsu 

(1)>VL 



10950 
10960 
)THENI1=3:T(4)=T( 



T(2) 
T(9)0RT 

):G0T01 



(4)>115THE 

0705 



)THENI1=3:T(4)=T( 



T(l) 
T(9)0RT 

):G0T01 



(4)>115THE 
0705 



)THENI1=2:T(4)=T( 



T(l) 
T(9)0RT 
) :G0T01 

(2)THEN 
(3)THEN 



(4)>U5THE 
07 05 

10980 
1098 5 



(3)THEN10270 



(2)THEN 
(3)THEN 



10993 

10995 



(3)THEN1027 



54272) , 
42+5427 

(2)THEN 
(2)THEN 
(2)ANDG 



10:POKEB+1 
2,10 

12 500 
12 600 
S(1)=GS(2) 



12600 
=1THENF0RK=0T02:MC(K, 11 

RN 
IFWN=OTHENGOSUB2100O:GOTO12 



B 2 0000 
12400 
=0THENG0SUB20000 

B21000 
12400 

09 



G0T012 



•14005 ON I GOSUB 700,7 50,760 
•14010 IFI=1THEN B=B+0 : G0SUB141 00 : 

GOT014040 
•14020 IFI=2THEN B=B+6 : G0SUB14200: 

GOT014040 
.14030 IFI=3THEN B=B+1 2 ; G0SUB14300 

• 14040 IFPL(2,I) = 900RPL(2,I)=83THE 
ND=I : GOSUB 11 000: GOTOl 4046 

•14042 POKEB-40+5427 2,0:POKEB+l+54 
272,0:POKEB+42+54272,0 

• 14046 P0KEB-40,PL(2,I) :F0RL = 1T01: 
P0KEB+L,PL(L,I) :NEXTL:P0KEB+4 2,PL 
(2,1) 

•14050 RETURN 

• 14100 F0RL = 0T02:P0KE1469+L,32:NEX 
T 

• 14110 F0RL = 0T02:P0KE1509 + L,32:NEX 
T 

• 14120 F0RL = 0T02:P0KE1549 + L,32:NEX 
T 

. 14130 RETURN 

• 14200 FORL=OT02:POKE1475 + L,32:NEX 
T 

• 14210 FORL=OT02:POKE1515 + L,32:NEX 

T 

• 14220 FORL = 0TO2:POKE1555+L,32:NEX 
T 

• 14230 RETURN 

• 14300 FORL=OT02:POKE1481 + L,32:NEX 
T 

. 14310 FORL = OT02:POKE1521 + L,32:NEX 
T 

•14320 FORL=OT02:POKE1561+L,32:NEX 

T 

• 14330 RETURN 

• 16000 N=1389 

• 16010 IFI1 = 1THEN N = N + : GOSUB1400 : 
GOTOl 6040 

•16020 IFIU2THEN N = N + 6 :G0SUB1 500 : 
GOTOl 6040 

• 16030 IFI1 = 3THEN N = N + 1 2 : G0SUB1600 

• 16040 REM 

• 16050 RETURN 

• 18000 F0RK=1T08:T(K)=0:NEXTK 

• 18100 F0RK = 1T01000:NEXTK 

• 18140 F0RL=-1T03:P0KE1721 + L,32:P0 
KE1727+L,32:NEXT 

• 18150 FORL=-1T03:POKE1761 + L,32:PO 
KE1767+L,32:NEXT 

• 18160 FORL = -1T03:POKE1801 + L,32:PO 
KE1807+L,32:NEXT 

• 18170 F0RL = -1T03:P0KE1841 + L,32:P0 
KE1847+L,32:NEXT 



AHOY! 81 



18180 F0RL=-1T03:P0KE1881+L,32:P0 

KE1887+L,32:NEXT 
•18201 RETURN 
•2 0000 REM 
. 200 50 TP=TP+0+F 

• 20060 P0KE1788,81 : POKE1708 , 32 : TES 
=0:ZX=0:WN=0 

.20102 IFZZ=1THEN20110 ,» 

• 20103 IFTP + TM>120THENPRINT"{HM) {C 
D} {CD} {CD} {CD} (CD) {CD} (CD) (CD) {CD 
){ CD) {CD} (CD) {CD} (CD} (CD) (CD) (CD) 
{CD)(CD)(CD){CD)(CD}(CD) {CR}{CR}( 
CR)I WIN I'M THE BEST!":ZZ = I ft, 

. 20104 PRINT"{HM]{CD}{CD){CD}{CD}{ 
CD){CD){CD} {CD}{CD)(CD}(CD}{CD3{C 
D){CD){CD){CR){CR}(CR){CR}(CR){CR 
}(CK}(CR)(CR){CR){CR){CR)(CR) {CR} 

/1{CR}(CR}(CR}(CR){CR} (CR){CR){CR]{ 
^ CR}{CR){CR) {CR}{CR}{CR)"rTP+TM 

• 20105 IFZZ=1THEN40000 
20110 RETURN 
21000 REM 
21050 TY=TY+0+F 

21060 POKE 1708, 81: POKE 1788, 32: TES 
=1 :ZX=1:WN=1 
. 21102 IFZZ=1THEN21110 

• 21103 IFTy + TC>120THENPRINT"(HM) (C 
D){ CD} {CD} {CD} {CD} (CD) (CD) (CD) (CD 

*--0 { CD ) { CD ) { CD } { CD ) { CD ) { CD ) { CD ) { CD } 

{CD}{CD}(CD) (CD){CD) {CR}(CR}yOU W 

IN YOU GOT LUCKY !":ZZ=r"^ 

. 21104 PRINT" (HM) (CD) { CD } { CD } (CD) ( 

i,''CD){CD){CD){CD){CD}{CD)(CD)(CD){C 

D}(CD) (CD){CR)(CR){CR)(CR)(CR){CR 

HCR){CR){CR}{CR}(CR)(CR}{CR}{CR) 

J'* {CR){CR)(CR} {CR}{CR}{CR){CR){CR)( 

CR) {CR}";TY+TC 

• 21105 IFZZ=1THEN40000 

• 21110 RETURN 

• 25000 1FZX=0THEN25500 

• 25010 GOTO 26000 

• 25500 GOSUB1000O:GOSUB8000:GOTO13 
3 

• 26000 G0SUB8000:G0SUB10000;G0T013 
3 

• 27000 F0RL=0T01:P0KE1455+L,32:NEX 
TL 

• 27005 lFTeS=0THENF0RK=OTO2:MC(K,I 
1)=TR(K, 1):NEXTK:GOSUB16000:AA=1 : 
GOTO 3 0000 

• 27010 F0RK=0T02:PL(K,I)=TR(K,1):N 
EXTK:G0SUB14000:AA=1 :GOT030000 

•28000 VL(1)=T0:VL(2)-T(4) 

H2 AHOY! 



;^ 



. 28010 SU(1)=T(5):SU(2)=MC(2,I1) 

• 28020 GS(1) = SU(1):IFSU(1)=T(9)THE 
NSU(1)=1:G0T028040 

. 28030 SU(1)=0 

•28040 GS(2)=SU(2):IFSU(2)=TC9)THE 

NSU(2)=1 :GOT0140 
. 28050 SU(2)=0:G0TO140 

• 30000 IF(TY+TP=120)THEN300 
. 30001 IFZX=OTHEN30500 

• 30100 GOTO 30600 
' 30500 GOSUB10000:GOSUB8000:GOT013 

3 

• 30600 G0SUB800O:GOSUB10000:G0T013 

3 -> 

.40000 PRINT" (HM) { CD ) { CD ) { CD ) { CR } { 

CR){CR){CR){CR}(CR){CR){CR){CR){C 
R) (CR) (CR)(CR) (CR) {CR} {CR}{CR}(CR; 
}{CR}{CR){CR}{CR){CR){CR)GAME OVE 

n It 

K f^ 

• 40002 PRINT"{HM} (CD) (CD) (CD) (CD) { 
CR){CR){CR){CR}{CR}{CR}(CR){CR}{C 
R} {CR}{CR}{CR)(CR){CR){CR)(CR)(CR'*-V 
) (CR) (CR) {CR} (CR} (CR}(CR}(CR)TRY 
AGAIN (Y/N)" 

• 40003 GETQ$:IFQ$ = "Y"THENRESTORE:P 
RINT"(SC}":GOTO620OO 

• 40004 F0RZ = 0T015 :POKE53280,ZtNEXT 
. 40005 G0T040003 j^ 

• 50000 PRINT" (HM) (CD) (CD) (CD) (CR) { 
^^R){CR)(CR)(CR}(CR}(CR){CR}{CR}{C 

R} (CR) {CR} (CR) (CR) (CR) {CR}B R I S 
K" ^ 

. 50010 PRINT"{HM} {CD} {CD} (CD) (CD) ( 

CD}(CD}(CR}(CR){CR){CR){CR){CR}(C 
iiR) (CR) (CR) (CR)DESIGNED BY JOSEPH 

FUSCO " 
. 50060 PRINT"(HM} (CD) (CDl {CD) (CD) { 

CD){CD){CD){CD}{CD}{CD}(CD}{CD}{C 

D}{CD}{CD}{CD){CD){CD){CD){CR){CR 

) {CR)COPYRIGHT 1984 BY JOSEPH FUS 

CO" 
.50070 PRINT"{HM} {CD} {CD} (CD) (CD) { 

CD){CD}(CD] (CD){CD}{CD}{CD}{CD}(C 

D) (CD) {CD} (CD) (CD) (CD) (CD) (CD) (CR 

){CR}{CR}ALL RIGHTS RESERVED." 
•50998 FOR WA=1T06000 : NEXT : PRINT" { 

SC)" 
•50999 RETURN 
•60000 PRINT"{SC}":PRINT"{HM) (CD) { 

CR)OBJECT: TO BE THE FIRST TO SCO 

RE 121 P- OINTS." 

•60002 PRINT" THERE ARE TW 

HANDS PER-GAME." 



.60005 PRINT'MCR) {CR)TRUMP: THE GA 

ME BEGINS WITH THREE "; - 
. 60006 PRINT'MCR) (CR) (CR) (C'R) (CR) { 
CR){CR){CR){CR)(CR1[CR){CR){CR)CA 
RDS DEALT TO EACH PLAYER y " 
.60007 PRINT" (CR) {CR ) {CR ) { CR ) { CR ) { 
CR){CR}{CR} THE SEVENTH CARD IS D 
EALT THE "; ^ 
•60008 PRINT"{CR) {CR} {CR} {CR} {CR} { 
CR}{CR) (CR) {CR)SUIT OF THIS CARD 
IS TRUMP" V 

.60009 PRINT'MCR) (CR) {CR) (CR)EX/: 

TRUMP-CARD 2X CLUBS IS TRUMP!" 
.60010 PRINT'MCR} (CR) {CR)PLAY: IF 

YOU LEAD YOUR OPPONENT CAN " 
.60011 PRINT'MCR}{CR){CR){CR}{CR}{ 
'J'CR) (CR) (CR) {CR}FOLLOW SUIT, LEASH 

OR TRUMP." 
.60012 PRINT" (CR) ( CR ) { CR) { CR } EX/ ; 
YOUR PLAY KZ, COMPUTER PLAYS 6Z "; 
^60013 PRINT" (CR} (CR } (CR } (CR } {CR } ( 
< CR) (CR) (CR) (CR)YOU WIN BECAUSE TH 

E KZ > 6Z." 

.600U PRINT'MCR){CR){CR){CR){CR){ 

^ CR} (CR} {CR}{CR)IF YOU PLAY THE AS 

AND CLUBS IS"; 

.60015 PRINT"(CR} {CR} {CR} {CR) {OR} ( 

/ CR) (C-R) (C-R) TRUMP THE COMPUTER CA 

N PLAY THE"; 
y 6001 6 PRINT" {CR}{CR}{CR}{GR}{CR}{ 
« CR)(CR}{CR) 4X TO TRUMP YOUR ACE 
AND WIN." 
•60017 PRINT"{CR}{CR}{CR}NOTE; TRY 

TO LET THE COMPUTER LEAD AS"; 
•60018 PRINT" (CR}{CR}(CR) (CR) (CR}{ 
/CR}{CR}{CR} OFTEN AS POSSIBLE SO 
YOU CAN"; 
.60019 PRINT" (CR) { CR ) ( CR } ( CR ) ( CR ) ( 

I -»fi-R}(CR){CR){CR){CR}{CR){CR)PLAY T 

HE HIGHER CARD IN THAT"; 
.60020 PRINT" {CR} (CR } { CR ) (CR } {CR } { 
♦( CR)(CR}{CR)(CR){CR)(CR} SUIT OR T 

RUMP A LOAD TO WIN" 
»60021 PRINT"(CR)(CR)(CR)LOAD: ACE 

S OR THREES" 
.60022 PRINT"{CR} {CR}VALUE: A=ll,3 

=10,K=4,J=3,Q=2 POINTS"; 
.60023 PRINT" {CR} { CR } ( CR ) {CR ) {CR } { 
,^CR}(CR}(CR} (CR}(CR){CR}(CR)2,A,5, 

6,7 HAVE NO POINT VALUE" 
'60040 PRINT" (CR } {CR)PRESS Y TO PL 

AY,E FOR MORE EXAMPLES" 
•60041 GETQ$:IFQ$="Y"THEN6 



60042 IFQ$="E"THEN60100 

60043 G0T060041 

60100 PRINT" (SC) (HM)(CD) {CR)EX/:F 

OLLOW SUIT" 

60104 PRINT'MCR}COMPUTER PLAYS KZ 

YOU PLAY QZ" 
60107 PRINT" {CR)COMPUTER WINS." 
60109 PRINT 

60111 PRINT"(CR}EX/:FOLLOW SUIT H 
IGHER CARD" 
60113 PRINT'MCR}COMPUTER PLAYS 7X 

YOU PLAY AX" 

60115 PRINT"(CR} YOU WIN YOU PLAYE 
D A GREATER VALUE CARD"; 

60116 PRINT"{CR}AND THE SAME SUIT 
II 

60117 PRINT 

60119 PRINT"{CR)EX/:LEASH PLAY, TO 

PLAY YOUR LOWEST CARD"; 
60121 PRINT"{CR)COMPUTER PLAYS JA 

YOU PLAY 4Z" 
60123 PRINT"(CR}COMPUTER WINS YOU 

DID NOT FOLLOW SUIT" 

60125 PRINT"(CR}YOU DID NOT TRUMP 
ti 

60128 PRINT 

60130 PRINT"(CR)EX/:TRUMP" 

60132 PRINT"(CR}COMPUTER PLAYS AX 

TRUMP IS S YOU PLAY" 
60134 PRINT"{CR)THE 2S YOU WIN YO 
U TRUMPED THE ACE" 
60150 PRINT 
60152 PRINT'MCR}PRESS P TO PLAY" 

60155 GETQ$:IFQ$="P"THEN6 

60156 GOTO 60155 
62000 RUN 6 

62500 IFI=1THENXA=1:G0T062550 
62510 IFI=2THENXB=2:G0T062550 
62520 IFI=3THENXC=3 
62550 RETURN 

BUG REPELLENT LINE CODES 
FOR BRISK 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 
# 
# 

# 
# 
# 
# 



2: 
3: 
4: 
5: 
6: 
7: 
10 



CN 
MG 
GM 
NE 
lA 
PC 
:PN 



11:GF 

15:LA 
17:GE 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



20:NG 
21:0E 
37:OF 
50:FB 
100: JM 



101 
103; 
105; 
110; 



BF 
EC 
CM 
DB 



115:0H 
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LINE 


# 


122:JE 


LINE # 820:KM 


LINE 


# 


2 000: AH 


LINE # 


8000: MO 




LINE 


# 


125:LN 


LINE # 822:JG 


LINE 


# 


2010:JH 


LINE # 


8001 :M0 




LINE 


# 


127:EN 


LINE # 850:DI 


LINE 


# 


2020 :LL 


LINE # 


8002 :IA 




LINE 


# 


130:AP 


LINE # 852:NC 


LINE 


# 


2030 :IL 


LINE # 


8003 :MG 




LINE 


# 


131 :LG 


LINE # 854:0P 


LINE 


# 


2040 :GI 


LINE # 


8004 :E0 




LINE 


# 


132:A0 


LINE # 860:CC 


LINE 


# 


2050 :CK 


LINE # 


8005 :PH 




LINE 


# 


133:NG 


LINE # 862:0J 


LINE 


# 


2060 :FJ 


LINE # 


8006: JD 




LINE 


# 


134:HF 


LINE # 864:AM 


LINE 


# 


2070: HP 


LINE # 


8007 :FJ 




LINE 


# 


135:M0 


LINE # 960:C0 


LINE 


# 


3000: KM 


LINE # 


8008: ID 




LINE 


# 


136:JB 


LINE # 962:NA 


LINE 


# 


3001: OH 


LINE # 


8009: MA 




LINE 


# 


137:FB 


LINE # 964:DI 


LINE 


# 


3002 :EA 


LINE # 


8012:GL 




LINE 


# 


138:BI 


LINE # 970:EN 


LINE 


# 


3005 :JH 


LINE # 


8013 :CN 




LINE 


# 


139:BK 


LINE # 972:GH 


LINE 


# 


3010: IM 


LINE # 


8015: LA 




LINE 


# 


140: IG 


LINE # 974:JJ 


LINE 


§ 


5 000: IK 


LINE # 


8016 :CF 




LINE 


# 


U1:JA 


LINE # 1000:NG 


LINE 


# 


5010 :BC 


LINE # 


8017:01 




LINE 


# 


142:PA 


LINE # 1005 :TM 


LINE 


# 


5020: AD 


LINE # 


8018: AM 




LINE 


# 


143:GF 


LINE # 1010:B0 


LINE 


# 


5030: EC 


LINE # 


8019: JA 




LINE 


# 


150:0J 


LINE # 1015:NJ 


LINE 


# 


5040 :DN 


LINE # 


8020 :KP 




LINE 


# 


151:KL 


LINE # 1020: NG 


LINE 


# 


5050 :JF 


LINE # 


8021 :H0 




LINE 


# 


152:CF 


LINE # 1030: IM 


LINE 


# 


5100: BJ 


LINE # 


8030 :CL 




LINE 


# 


2 00: EC 


LINE # 1100:BJ 


LINE 


# 


5 1 1 : BG 


LINE # 


8040 :GC 




LINE 


# 


210:DE 


LINE # 1105:DN 


LINE 


# 


5120:00 


LINE # 


8100:DH 




LINE 


# 


220:DB 


LINE # 1110:DE 


LINE 


# 


5130:PK 


LINE # 


8105 :DL 




LINE 


# 


230: KG 


LINE # I120:BI 


LINE 


# 


5131:NO 


LINE # 


8110:CK 




LINE 


# 


233: JL 


LINE # 1125:DM 


LINE 


# 


5132:MH 


LINE # 


8120: AO 




LINE 


# 


234:NE 


LINE # 1130:IM 


LINE 


# 


5133:GM 


LINE # 


8125:DC 




LINE 


# 


235:IM 


LINE # 1200:BM 


LINE 


# 


5134:GI 


LINE # 


8130:IM 




LINE 


# 


236:K0 


LINE # 1205:GA 


LINE 


# 


5 200 :IM 


LINE •# 


82 00: DC 




LINE 


# 


237:CN 


LINE # 1210:PD 


LINE 


# 


6000: FA 


LINE # 


8205 :DG 




LINE 


# 


2 40:0D 


LINE # 1220:BH 


LINE 


# 


6001 :IL 


LINE # 


8210 :GB 




LINE 


# 


241:NL 


LINE § 1225:DL 


LINE 


# 


600 5 :AI 


LINE # 


8220:CF 




LINE 


# 


245:IK 


LINE # 1230:IM 


LINE 


# 


6008: CD 


LINE # 


8225:GJ 




LINE 


# 


247:K0 


LINE # 1300:BL 


LINE 


# 


6010: IM 


LINE # 


8230:IM 




LINE 


# 


249:0A 


LINE # 1305:DP 


LINE 


# 


6100 :L0 


LINE # 


8300 :GJ 




LINE 


# 


250:NK 


LINE # 1310:00 


LINE 


# 


6105: KM 


LINE # 


8305:GN 




LINE 


# 


300 :AL 


LINE # 1320:BC 


LINE 


# 


6110:LI 


LINE # 


8310:EE 




LINE 


# 


305 :BD 


LINE # 1325:CF 


LINE 


# 


6190: IM 


LINE # 


8320:GI 




LINE 


# 


306: EC 


LINE # 1330:IM 


LINE 


# 


7000 :GK 


LINE # 


8325:BL 




LINE 


# 


310 :CK 


LINE # 1400:CI 


LINE 


# 


7001 :AB 


LINE # 


8330 :IM 




LINE 


# 


315:DG 


LINE # 1402:LF 


LINE 


# 


7010 :HM 


LINE # 


8900: OB 




LINE 


# 


330 :BP 


LINE # 1410:AH 


LINE 


# 


7 020 :FL 


LINE # 


8999:IM 




LINE 


# 


340 :NN 


LINE # 1420:0P 


LINE 


# 


7 500: AG 


LINE # 


9000: HJ 




LINE 


# 


500 :IC 


LINE # 1430:IM 


LINE 


# 


7 501 :JN 


LINE # 


9010: IP 




LINE 


# 


700 :IJ 


LINE # 1500: DP 


LINE 


# 


7 502 :GI 


LINE # 


9020 :0G 




LINE 


# 


720: AG 


LINE # 1502:0L 


LINE 


# 


7503 :HC 


LINE # 


9030 :GN 




LINE 


# 


722:MI 


LINE # 1510:PB 


LINE 


# 


7 504 :FF 


LINE # 


9999:IM 




LINE 


# 


750 :NE 


LINE # 1520:0J 


LINE 


# 


7 506 :JL 


LINE # 


10000:JL 




LINE 


# 


752 :HG 


LINE # 1530:IM 


LINE 


# 


7510:BB 


LINE # 


10100: ID 


1 


LINE 


# 


754:ED 


LINE # 1600: DC 


LINE 


# 


7512:CG 


LINE # 


10150:BK 


LINE 


# 


7 60 :CG 


LINE # 1602:GJ 


LINE 


# 


7 800: IN 


LINE # 


10200: MP 




LINE 


# 


762:AD 


LINE # 1610:EL 


LINE 


# 


7810:N0 


LINE # 


10205:BL 


1 


LINE 


# 


764:CG 


LINE # 1620:JD 


LINE 


# 


7820:CL 


LINE # 


10210: FN 




LINE 


# 


800: AN 


LINE # 1630:IM 


LINE 


# 


7830:IP 


LINE # 


1022O:HI 


■ 
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LINE 


# 


102 30:CN 


LINE 


# 


10934:JC 


LINE 


# 


14200: IL 


LINE 


# 


30100: IE 


LINE 


# 


10240 :PH 


LINE 


# 


10940:MC 


LINE 


# 


14210:GI 


LINE 


# 


30500: I J 


LINE 


# 


102 50:MK 


LINE 


# 


10942:00 


LINE 


# 


14220:IE 


LINE 


# 


30600 :EB 


LINE 


# 


10255:HF 


LINE 


# 


10944: EN 


LINE 


# 


14230:IM 


LINE 


# 


40000: IF 


LINE 


# 


10256:LL 


LINE 


# 


10946:JK 


LINE 


# 


14300:JG 


LINE 


# 


40002 :HG 


LINE 


# 


10261 :MI 


LINE 


# 


10950 :CA 


LINE 


# 


14310:GD 


LINE 


# 


40003 :KL 


LINE 


# 


10262:OB 


LINE 


# 


10952:BE 


LINE 


# 


14320:KP 


LINE 


# 


40004 :NI 


LINE 


# 


10263:FA 


LINE 


# 


10954:EN 


LINE 


# 


14330:IM 


LINE 


# 


40005 :IG 


LINE 


# 


10264:IN 


LINE 


# 


10956 :JK 


LINE 


# 


16000:NN 


LINE 


# 


50000: CD 


LINE 


# 


10265:BL 


LINE 


# 


10960:PG 


LINE 


# 


16010:CC 


LINE 


# 


50010 :0M 


LINE 


# 


10267:DB 


LINE 


# 


10962:BE 


LINE 


# 


16020:BA 


LINE 


# 


50060 :NN 


LINE 


# 


10268:GN 


LINE 


# 


10964: EN 


LINE 


# 


16030: IK 


LINE 


# 


50070: NO 


LINE 


# 


10269:JG 


LINE 


# 


10966:JK 


LINE 


# 


16040: JD 


LINE 


# 


50998 :0A 


LINE 


# 


10270:CM 


LINE 


# 


10970: FA 


LINE 


# 


16050: IM 


LINE 


# 


50999 :IM 


LINE 


# 


10271:IK 


LINE 


# 


10974:CL 


LINE 


# 


18000: KF 


LINE 


# 


60000 :LJ 


LINE 


# 


10272:PI 


LINE 


# 


10976: JD 


LINE 


# 


18100: AG 


LINE 


# 


60002 :CC 


LINE 


# 


10277:KA 


LINE 


# 


10980 :GL 


LINE 


# 


18140 :FJ 


LINE 


# 


60005 :KA 


LINE 


# 


10278:LG 


LINE 


# 


10982:JD 


LINE 


# 


18150:LJ 


LINE 


# 


60006: MO 


LINE 


# 


10279:ID 


LINE 


# 


10985:JA 


LINE 


# 


18160: PH 


LINE 


# 


6000 7 :AE 


LINE 


# 


10280:MN 


LINE 


# 


10990: CM 


LINE 


# 


18170: KH 


LINE 


# 


60008: HI 


LINE 


# 


10281: IN 


LINE 


# 


10991 :FC 


LINE 


# 


18180:IH 


LINE 


# 


60009 : FC 


LINE 


# 


10282:BE 


LINE 


# 


10992:JD 


LINE 


# 


18201:IM 


LINE 


# 


60010: BO 


LINE 


# 


1028A:GD 


LINE 


# 


10993:AB 


LINE 


# 


20000 :JD 


LINE 


# 


60011 :GJ 


LINE 


# 


10285:EC 


LINE 


# 


10994:JD 


LINE 


# 


20050 :PB 


LINE 


# 


6001 2 :JF 


LINE 


# 


10286:IC 


LINE 


# 


10995:JA 


LINE 


# 


20060: JH 


LINE 


# 


60013: KB 


LINE 


# 


10300:00 


LINE 


# 


10999:IM 


LINE 


# 


20102:MI 


LINE 


# 


6001 4 :LD 


LINE 


# 


10301 :DF 


LINE 


# 


11000:FL 


LINE 


# 


20103: CM 


LINE 


# 


60015: DC 


LINE 


# 


10310 :CK 


LINE 


# 


11010:IM 


LINE 


# 


201 04: LB 


LINE 


# 


60016 :0A 


LINE 


# 


10320:CJ 


LINE 


# 


12000:IC 


LINE 


# 


20105:MO 


LINE 


# 


6001 7 :GD 


LINE 


# 


10400:JC 


LINE 


# 


12100:FF 


LINE 


1 


20110: IM 


LINE 


# 


60018 :NE 


LINE 


# 


10410 :CJ 


LINE 


# 


12 200:NK 


LINE 


21000:JD 


LINE 


# 


60019: LA 


LINE 


# 


10500 :CJ 


LINE 


# 


12300:11 


LINE 


# 


2 1050: ON 


LINE 


# 


600 20 :GI 


LINE 


# 


10700:MC 


LINE 


# 


12400:KN 


LINE 


# 


21060: JK 


LINE 


# 


60021 :JA 


LINE 


# 


10705:GB 


LINE 


# 


12402:IM 


LINE 


# 


21102:MJ 


LINE 


# 


60022 :JP 


LINE 


# 


10720: IK 


LINE 


# 


12 500: DA 


LINE 


# 


21103:01 


LINE 


# 


6002 3 :LC 


LINE 


# 


10740: IB 


LINE 


# 


12525:1? 


LINE 


# 


21104:KI 


LINE 


# 


60040 :GJ 


LINE 


# 


10760:GL 


LINE 


# 


12550:IG 


LINE 


# 


21105:MO 


LINE 


# 


60041 :JA 


LINE 


# 


10780:FB 


LINE 


# 


12600:AE 


LINE 


# 


21110: IM 


LINE 


# 


60042: OH 


LINE 


# 


10800: DA 


LINE 


# 


12625:IC 


LINE 


# 


2 5000 :NP 


LINE 


# 


60043: IK 


1 LINE 


# 


10900:LF 


LINE 


# 


12650:IG 


LINE 


# 


25010: IF 


LINE 


# 


60100 :PF 


1 LINE 


# 


10905 :KH 


LINE 


# 


14000: ML 


LINE 


# 


2 5500: IJ 


LINE 


# 


60104:IJ 


1 LINE 


# 


10910:NN 


LINE 


# 


14005: ID 


LINE 


# 


26000 :EB 


LINE 


# 


60107:01 


1 LINE 


# 


1091 5 :HN 


LINE 


# 


14010: LA 


LINE 


# 


2 7000: MO 


LINE 


# 


60109 :JJ 


1 LINE 


# 


10916: ED 


LINE 


# 


140 20 :GK 


LINE 


# 


2 7005: KM 


LINE 


# 


60111 :KC 


LINE 


# 


10918:GJ 


LINE 


# 


14030:FM 


LINE 


# 


2701O:OH 


LINE 


# 


60113:KJ 


1 LINE 


# 


10919 :DB 


LINE 


# 


14040: MP 


LINE 


# 


28000: BH 


LINE 


# 


60115:HP 


LINE 


# 


10920: DA 


LINE 


# 


14042:BE 


LINE 


# 


28010: EC 


LINE 


# 


60116:AH 


LINE 


# 


10922 :0D 


LINE 


# 


14046:CB 


LINE 


# 


28020 :PG 


LINE 


# 


60117:JJ 1 


LINE 


# 


10925:KB 


LINE 


# 


14050: IM 


LINE 


# 


28030 :BN 


LINE 


# 


60119:DB 


LINE 


# 


10930: ML 


LINE 


# 


14100:KA 


LINE 


i 


28040 :BI 


LINE 


# 


60121: AM 


LINE 


# 


10931:JE 


LINE 


# 


141 10: FN 


LINE 


# 


28050 :FM 


LINE 


# 


60123:AA 


LINE 


# 


10932:KC 


LINE 


# 


14120:KJ 


LINE 


# 


30000 :JB 


LINE 


# 


60125:GN 


LINE 


# 


10933:JA 


LINE 


# 


14130:IM 


LINE 


# 


30001 :MJ 


LINE 


# 


60128:JJ 
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LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 

# 
# 



60130:KF 
60132:JL 



60134; 
60150; 
60152; 
60155; 
60156; 



HB 
JJ 
BF 
HL 
II 



LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



62000: 
62500; 
62510; 
62 5 20; 
62550; 
456 



MA 
II 

MD 
NK 
IM 



RANDOM 
DISPLAY 

FROM PAGE 95 



IMPORTANT 

Before typing in an Ahoyl program, refer to the 
first two pages of the program listings section. 



•10 GOSUB 500:G0SUB 600 

•100 GOSUB 640 

•110 IF FEEK(197)=64 THEN 110 

•120 GOTO 100 

•497 REM 

•498 REM SET UP CHARACTER SET--64 

VERSION 
•499 REM 
•500 CH=1024*14:F0R I=CH TO CH+135 

:READ NrPOKE I,N:NEXT 
•501 REM VIC VERSION: 500 CH=7168: 

FOR I=CH TO CH+135:READ N:POKE I, 

N:NEXT 
•502 REM IF YOU DON'T USE CUSTOM C 

HARACTERS, REPLACE 500-511 WITH: 

• 500 REM 

•505 SP=CH+32*8:F0R 

OKE 1,0: NEXT 
•510 XC=PEEK(53272) :POKE 53272, (XC 

AND 240)+14 
■511 REM VIC VERSION: 510 POKE 52, 

28:P0KE 56,28:P0KE 36869,255 
. 520 SH$(0,0)="@ABC":SH$(0, 1)="DEF 

G":SH$(1,0)="HI":SH$(1,1)="JK"" 

* 530 SH$(2,0)="L":SH$(2,1)="M":BU$ 
="N":LH$="0"+CHR$(17)+CHR$(157)+" 

•560 RE=38;RF=39:BE=23:BF=24:REM V 
IC VALUES ARE 20, 21, 20, 21 

•565 RE(0)=RE-3:RE(1)=RE-1:RE(2)=R 
ErREM USED IN MOVING DISPLAY ONLY 

•570 POKE 53280, 11:P0KE 53281,11 

•571 REM VIC VERSION: 570 POKE 368 

86 AHOY! 



I=SP TO SP+7:P 



SET UP VERTICAL MOVEMENT 



79,184 
590 RETURN 

597 REM 

598 REM 
STRINGS 

599 REM 

600 DIM VP$(BE) :VP$(0)=CHR$(19)-F 
OR 1=1 TO BE:VP$(I)=VP$(I-1)+CHR$ 
(17):NEXT 

610 CL$(0)=CHR$(159):CL$(1)=CHR$( 
158):CL$(2)=CHR$(152):CL$(3)=CHR$ 
(153) 

615 CL$(4)=CHR$(155) 
620 RETURN 

637 REM 

638 REM GENERATE RANDOM SCREEN 

639 REM 

640 PRINT CHR$(147):F0R 1=0 TO IN 
T(BE/3):N=INT(RND(9)*2):F0R J=0 T 
INT(RE/6) 

645 M=INT(5*RND(9)) 
650 K=1+INT(RND(9)*10):0N K GOSUB 
700 , 670 , 710 , 670 . 720 , 670 , 730 , 670 , 
740,670 

660 NEXT:NEXT:RETURN 
670 RETURN 

700 PRINT VP$(I*3)TAB(6*J)CL$(M)S 
H$(0,N) :RETURN 

710 L=0:IF (J+I)*6<=RE THEN L=INT 
(RND(9)*4) 

715 PRINT VP$(I*3)TAB(6*J+L)CL$(M 
)SH$(1 ,N) :RETURN 

720 L=0:IF (J+1)*6<=RE THEN L=INT 
(RND(9)*5) 

725 PRINT VP$(I*3)TAB(6*J+L)CL$(M 
)SH$(2,N):RETURN 

730 L=0:IF (J+1)*6<=RE THEN L=INT 
(RND(9)*5) 

735 PRINT VP$(I*3)TAB(6=M + L)CHR$( 
144)BU$:RETURN 

740 L=0:IF (J+1)*6<=RE THEN L=INT 
(RND(9)*5) 

745 PRINT VP$(I*3)TAB(6*J+L)CHR$( 
5)LH$:RETURN 



1000 DATA 

1008 DATA 

55,255 

1016 DATA 

,255 

1024 

1032 

1040 

,255 



DATA 
DATA 
DATA 



0,0,0,3,6.255,127,31 
0,198,198,255,170,255,2 

0,48,48,254,171,255,255 

0,0,0,0, 192,248,248,240 

0,0,0,0,3,31,31,15 

0,12,12,127,213,255,255 



• 10A8 
255 

• 1056 
2 

• 1064 
. 1072 

• 1080 
. 1088 
•1096 
. 1104 
•1112 
•1120 

• 1128 
255 



DATA 0,99,99,255,85,255,255, 

DATA 0,0,0,192.96,255,254,25 

DATA 0,0,0,0,6,15,122,63 
DATA 0,0,0,0,192,224,188,252 
DATA 0,0,0,0,3,7,61,63 
DATA 0,0,0,0,96,240,94,252 
DATA 0,0,0,0,8,28,247,127 
DATA 0,0,0.0,16,56,239,254 
DATA 0,0,0,0,28,28,8,62 
DATA 60 , 66 , 66 , 60 , 60 , 60 , 52 , 60 
DATA 60,44,60,60,126,90,255, 



BUG REPELLENT LINE CODES 
FOR RANDOM DISPLA Y 

LINE # 10:IL 
LINE # 100 :CK 
LINE # 110:IG 
LINE # 120:CF 
LINE # 497:JD 
LINE # 498:JD 
LINE # 499:JD 
LINE # 500 :BD 
LINE # 501 :GN 
LINE # 502 :FM 
LINE # 505:LP 
LINE # 510:DN 
LINE # 511:NB 
LINE # 520:FB 
LINE # 530:EH 
LINE # 560:LA 
LINE # 565:BC 
LINE # 570:LK 
LINE # 571:NP 
LINE # 590: IM 
LINE # 597:JD 
LINE # 598:AH 
LINE # 599:JD 
LINE # 600 :GP 
LINE # 610:AH 
LINE # 615:KH 
LINE # 620:IM 
LINE # 637:JD 
LINE # 638:JF 
LINE # 639:JD 
LINE # 640:NA 



M 
DL _ 

FROM PAGE 95 



PLAY 



»io 

►80 
'97 
'98 
•99 
'100 



500: 
640 



GOSUB 
GOSUB 
REM 

REM MAIN 
REM 
FOR K=0 



GOSUB 600 



LOOP 



TO 6:I=X(K) 



LINE 


# 


645:FO 


LINE 


# 


6 50:CF 


LINE 


# 


660 :AE 


LINE 


# 


670 :IM 


LINE 


# 


700: MB 


LINE 


# 


7 1 : JC 


LINE 


# 


715:EL 


LINE 


# 


7 20:JD 


LINE 


# 


725:JI 


LINE 


# 


7 30:JD 


LINE 


# 


735:BF 


LINE 


# 


740 :JD 


LINE 


# 


745:FF 


LINE 


# 


1000: PI 


LINE 


# 


1008;CL 


LINE 


# 


1016 :NC 


LINE 


# 


1024:CA 


LINE 


# 


1032:NP 


LINE 


# 


1040: HA 


LINE 


# 


1048:HF 


LINE 


# 


1056 :BM 


LINE 


# 


1064:PK 


LINE 


# 


1072:BE' 


LINE 


# 


1080: OP 


LINE 


# 


1088: ME 


LINE 


# 


1096:AE' 


LINE 


# 


1104:MG 


LINE 


# 


1112:00' 


LINE 


# 


1120:DJ 


LINE 


# 


1128:D0' 


LINES 


: 


61 



•105 HP(I)=HP(I)+DI(I) 

(I) THEN DI(I)=-DI(I) 

:GOTO 115 
•110 IF HP(I)=-1 THEN HP( 

)=-DI(I) 
•115 D(I)=DI(I):IF D(I)=- 

I)=0 

• 125 PRINT VP$(VP(I))TAB( 
(I)SH$(I,D(I)) 

■ 150 NEXT K 
•160 GOTO 100 

■ 497 REM 

•498 REM SET UP 

VERSION 
»499 REM 
•500 CH=1024*14 

:READ N:P0KE I 
•501 REM VIC 

FOR I=CH TO 

N:NEXT 
■505 SP=CH+32*8:FOR I=SP 

OKE I,0:NEXT 
•510 XC=PEEK(53272):P0KE 

EK(53272)AND240)+14 
'511 REM VIC VERSION: 510 

28:P0KE 56,28:P0KE 36869 

520 SH$(0,0)="@ABC " : SH$ 
EFG":SH$(1,0)="HI ":SH$( 



IF HP(I)>RE 
HP(I)=RE(I) 

I)=0:DI(I 

1 THEN D( 

HP(I))CL$ 



CHARACTER SET--64 



FOR I=CH TO CH+135 

N:NEXT 
VERSION: 500 
CH+135:READ 



CH=7168: 
NrPOKE I, 



TO SP+7:P 

53272, (PE 

POKE 52, 
,255 
(0,1)=" D 

1,1)=" JK 



PROGRAMMERS.' Ahoy! pays competitive rates 
for 64 and VIC programs. Send us yours on disk 
or tape, with a stamped, self-addressed envelope. 



530 SH$(2,0)="L ":SH$(2,1)=" M":B 

U$="N":LH$="0(CD} {CL}P" 

560 RE=38:RF=39:BE=23:BF=24:REM V 

IC VALUES ARE 20,21,21,22 

56 5 RE(0)=RE-3:RE(1)=RE-1:RE(2)=R 

E 

570 POKE 53280, 11:P0KE 53281,11 

571 REM VIC VERSION: 570 POKE 368 
79,184 

590 RETURN 
597 REM 



AHOY! 87 



.598 REM SET UP VERTICAL MOVEMENT 

STRINGS 
.599 REM 

•600 DIM VP$(BE):VP$(0)="(HM)":FOR 
1=1 TO BE:VP$(I)=VP$(I-1)+"{CD)" 

:NEXT 

610 CL$(0)="{CY)":CL$(1)="{YL)":C 

L$(2)="{G2)" 
•615 VP(0)=4:VP(1)=10:VP(2)=16 
•620 FOR 1=0 TO 2 :HP( I) =1+INT( RND( 

9)*(RE(I)-2)):J=INT(RND(9)*2):IF 

J=0 THEN J=-l 
•625 DI(I)=J:NEXT 
•630 X(0)=0:X(1)=1:X(2)=2:X(3)=2:X 

(4)=1:X(5)=2:X(6)=2 
.635 RETURN 
•637 REM 

.638 REM GENERATE RANDOM SCREEN 
•639 REM 
•640 PRINT "(SO)": FOR 1=0 TO INT(B 

E/6);F0R J=0 TO INT(RE/2) 
•650 K=1+INT(RND(9)*9):0N K GOSUB 
• 700 ,670,670,710,670,710,710,670,7 

10 
•660 NEXT:NEXT:RETURN 
•670 RETURN 
•700 PRINT VP$(I*6)TAB(2*J)"{WH]"L 

H$:RETURN 
•710 PRINT VP$(I*6)TAB(2*J)"(BK} [C 

D)"BU$:RETURN 
•1000 DATA 0,0,0,3,6,255,127,31 
•1008 DATA 0,198,198,255,170,255,2 

55,255 
•1016 DATA 0,48,48,254,171,255,255 

,255 
•1024 DATA 0,0,0,0,192,248,248,240 



1032 
•1040 

,255 
•1048 

255 
.1056 

2 
• 1064 
•1072 
•1080 



DATA 0,0,0,0,3,31,31,15 
DATA 0,12,12,127,213,255,255 

DATA 0,99,99,255,85,255,255, 

DATA 0,0,0,192,96,255,254,25 

DATA 0,0,0,0,6,15,122,63 
DATA 0,0,0,0,192,224,188,252 
DATA 0,0,0,0,3,7,61,63 



1088 DATA 0,0,0,0,96,240,94,252 



•1096 
•1104 
•1112 
•1120 
•1128 
255 



DATA 
DATA 
DATA 
DATA 
DATA 



0,0,0,0,8,28,247,127 
0,0,0,0, 16,56,239,254 
0,0,0,0,28,28,8,62 
60,66,66,60,60,60,52,60 
60,44,60,60,126,90,255, 



BUG REPELLENT LINE CODES 








FOR/ 


v\c 

# 


>VING DISPLAY 








1 


LINE 


1 : 1 L 


LINE 


# 


615:MM 




LINE 


# 


80:CK 


LINE 


# 


620:ME 




LINE 


# 


97:JD 


LINE 


# 


625:NJ 




LINE 


# 


98;PK 


LINE 


# 


630 :GH 




LINE 


# 


99:JD 


LINE 


# 


635:IM 




LINE 


# 


100:NH 


LINE 


# 


637:JD 




LINE 


# 


105:JK 


LINE 


# 


638:JF 


. 


LINE 


# 


110:CP 


LINE 


# 


639:JD 


1 


LINE 


» 


115:AN 


LINE 


# 


640 :HH 


LINE 


# 


125: JL 


LINE 


# 


650:CJ 


LINE 


# 


150: MP 


LINE 


# 


660 :AE 




LINE 


# 


160:CF 


LINE 


# 


670 :IM 




LINE 


# 


497:JD 


LINE 


# 


7 00:LF 


■ 


LINE 


# 


498 :JD 


LINE 


# 


710:GP 




LINE 


# 


499: JD 


LINE 


# 


1000: PI 




LINE 


# 


500 ;BD 


LINE 


# 


1008:CL 




LINE 


# 


501 :GN 


LINE 


# 


1016:NC 


i 


LINE 


# 


505: LP 


LINE 


# 


1024:CA 


\ 


LINE 


# 


510: DB 


LINE 


# 


1032:NP 




LINE 


# 


511:NB 


LINE 


# 


1040: HA 




LINE 


# 


520 :BD 


LINE 


# 


1048:HF 




LINE 


# 


530 :CB 


LINE 


# 


1056 :BM 




LINE 


# 


560: EO 


LINE 


# 


1064 :PK 




LINE 


# 


565:0E 


LINE 


# 


1072: BE 




LINE 


# 


570 :LK 


LINE 


# 


1080: OP 




LINE 


# 


571:NP 


LINE 


# 


1088:ME 




LINE 


# 


590 :IM 


LINE 


# 


1096:AE 




LINE 


# 


597:JD 


LINE 


# 


1104:MG 




LINE 


# 


598:AH 


LINE 


# 


1112:00 




LINE 


# 


599:JD 


LINE 


# 


1120:DJ 




LINE 


# 


600: PL 


LINE 


# 


1128:D0 1 




LINE 


# 


610 :BD 


LINES 


I 


63 ' 





CHECKLIST 

FROM PAGE 20 



IMPORTANT 

Before typing in an Ahoyl program, refer to the 
first two pages of the program listings section. 



• 10 GOSUB700:C0 = 53280:SE=54272:POK 
iiSE+24,15 

• 20 DIMI $ ( 1 , 2 1 ) , G$ ( 1 , 23 ) , TI $ ( 1 , 
23),TG$(10,23) ,R$(24) 

• 2 5 R$(0) = "(HM)":F0RI = 1T024:R$(I) = 
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R$(I-1)+"{CD}": 
26 POKECO+2,14: 
+ 4,5 

30 ES$=R$(2A)+" 



NEXT 
POiCECO+3, 



13:P0KEC0 



GOSUBIOOO; 



A4$=B$ 



; GOSUBIOOO; 
GOSUBIOOO; 



32 A$=" ITEM " 
A2$=B$:A3$=" C " 

33 A$=" WT ": GOSUBIOOO 

34 ER$=R$(20)+" 

35 L$=CHR$(32):F0RT=1T014:C2$=L 
C2$: NEXT: FOR I=1T04:C4$=C4$+L$:N 
T 

36 D$=CHR$(160) :C3$=D$+D$+D$:CX 
C3$+C3$+C3$ 

37 CL$=C4$+C4$+C4$ 

38 A$=" WHAT ITEM? 
$=B$:A$="WEIGHT OF 
$ = B$ 

39 A$=" CODE FOR " 
B$ 

40 A$=" CHOSE ANY ": GOSUBIOOO : S 
=B$:A$=" DELETE ANY ":G0SUB1000 
D$ = B$ 

41 A$=" Fl-DEL 
$:A$=" F2-CHNG 

43 A$=" F3-EXTR 
$:A$=" F4-T0TL 

44 A$=" F5-NEW 
$:A$=" F6-C0PY 

45 A$=" F7-NEXT 
$:A$=" F8-LIST 



$ + 
EX 

$ = 



S2 
S3 



GOSUBIOOO: S4$= 



1$ 

:S 



":G0SUB1000:F1$=B 
: GOSUBIOOO :F2$=B$ 
": GOSUBIOOO :F3$=B 

':G0SUB1000:F4$=B$ 
":G0SUB1000:F5$=B 
: GOSUBIOOO :F6$=B$ 
": GOSUBIOOO: F7$=B 

': GOSUBIOOO :F8$ = B$ 

= B 



46 A$=" E-END " : GOSUBl 000 : El$ 

$ 

60 READ C$:IFC$="END"THEN115 

70 M=M+1:C$(M)=C$:N=0 

100 READI$,NO:IFI$="0"THENN(M)=N: 

G0T060 

110 N=N+1:I$(M,N)=I$:P=4:G0SUB110 

0:G$(M,N)=A$:GOT0100 

115 PRINT" {SC)";POKE53265, PEEK (53 

265)0R64 

120 P0KEC0,3:P0KEC0+1,3:F0R X=1T0 

M:G0SUB500:PRINT"{WH)"R$(20)S1$; 

130 PRINTR$(24)F1$TAB(10)F3$TAB(2 

0)F5$TAB(30)F7$; :G0SUB800 

150 GETK$:IFK$=""THEN150 

155 PRINTERS; : IFK$=" ( F7 } "THEN260 

156 IFK$="{F1)"THENG0SUB3000:PRIN 
T"{WH)"R$(20)S1$:G0T0150 

158 IFK$="lF5)"THENG0SUB35OO:PRIN 
T"{WH)"R$(20)S1$:GOT0150 

159 IFK$="{F3)"THENGOSUB2 500:PRIN 
T"{WH)"R$(20)S1$:GOT0150 



160 K=ASC{K$)-64:IFK>N(X)0RK<1THE 

NG0SUB2100:G0T0150 

170 IFI$(X,K)=TI$(X,K)THENG0SUB21 

00: GOTO 150 

190 G0SUB4O0:GOTO150 

260 NEXTX:GOT04000 

400 PRINT" (RV) (LG)"R$(1+K)TAB(13) 

D$CHR$(K+96)D$; 

402 IFCHTHEN410 

405 G0SUB2000 

410 J$=I$(X,K) :I$=LEFT$(J$,LEN(J$ 

)-l) 

420 PRINT" (RV) ( GN } "TAB( 1 7 ) 1$ ; :A$= 

RIGHT$(J$,1) :G0SUB1000 

430 PRINT"{RV} {LG ) "TAB( 31) B$ ;TAB( 

33)"{GN}"G$(X,K) rIFCHTHENRETURN 

440 FT=FT+VAL(G$(X,K)):G0SUB800 

4 70 S(X)=S(X)+VAL(G$(X,K)) :NO=S(X 
) :P=5:GOSUB1100:GOSUB1000 

475 PRINTR$(22)TAB(31)D$B$D$ 

480 TI$(X,K)=I$(X,K) :TG$(X,K)=G$C 

X,K) rRETURN 

500 A$=" "+CHR$(X+64):GOSUB1000:P 

RINT"{SC) {WH)"TAB(13)B$D$"{BK}{RV 

)"A2$"{BK)"A3$"{BK}"A4$L$ 

520 Z$="":A$=C$(X) : F0RK=1T0LEN ( A$ 

)+2 :Z$=Z$+D$: NEXT: PRINT" {HM) {WH) ( 

RV)"Z$ 

52 2 GOSUBl 000: PRINT" [RV)"D$B$D$:P 

RINT"{RV}"Z$ 

530 PRINT" (HM] {CD}"; : F0RI=1T021 : P 

RINTTAB(13)"{RV)"C3$C2$C3$C4$D$:N 

EXT 

540 PRINT"{HM] {CD} {CD}"; :F0RY=1T0 

N(X);A$=CHR$(Y+64):GOSUB1000:PRIN 

TTAB(14)"{RV} {WH)"B$; 

545 J$=I$(X,Y) :I$=LEFT$(J$,LEN(J$ 

)-l) 

5 50 PRINT" (RV) {Gl ) "TAB( 17)1$ ; :A$= 
RIGHT$(J$,1):GOSUB1000 

560 PRINT"(RV) { WH ) "TAB( 31) B$TAB( 3 

3) "{G1)"G$(X,Y): NEXT: RETURN 

7 00 POKE5 3 280,0:POKE5 3 281,0:PRINT 

"{SC} {LG) (CD) {CD} {CD) {CD} {CD} (CD} 

{CD)";:A$="" 

715 F0RI=1T07:READA$:PRINTTAB(13) 

A$:NEXT:RETURN 

750 DATA"(RV} (RO}P (RV) (RO) (RV 

) (RO) (RV) (RO)P {RV} {RO)P (RV} 

(RO}N","{RV} {RO} (RV) {RO}C(RV 
) (RO) (RV) {RO)C {RV} (RO) {RV} 

{RO}M" 
760 DATA"{RV} {RO}^ ( RV ] (RO) {RV 
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} (RO) {RV} {RO)^ (RV) (R0)@ (RV) .3010 GETE$ : I FE$=""THEN301 

If^O)^". '3015 E=ASC(E$)-64:IFE = -51THEN3090 

'770 DATA" {RV} (RO) [RV] (RO) 0020 IFE<OORE>N( X)THENG0SUB2100 • G 

IRV)L{R0)J1Y{RV} {RO)Y"," (RV) { OT03010 

RO] {RV] (RO) -^(RVJ^fRO) {RV} ", -3030 IFTI$ (X , E)<>I$( X , E)THENGOSUB 

{RV} {R0)@ {RV) {RO} Mt {RV] 2100 : G0T03010 

.7«n PPT„PM '^''^^ S(X) = S(X)-VAL(G$(X,E)):FT=FT 

• /oU KhlURN -VAL(G$(XE))'TI${XE) = "" 

•800 PR1NTR$(5)"{BL} TOTAL " .3055 PRINT" { HM } (Gl )";: A$=CHR$(E+6 

•810 PRINTTABC1)C3$C3$D$:N0=FT:P=5 4) : GOSUBIOOO : PRINTR$( E+1 )TAB( lA ) " 

:G0SUB1100:G0SUB1000 {RV}{WH}"B$- 

•820 PRINTTAB(1)"{WH)"D$B$D$:PRINT .3056 J$ = I$<X , E) : I$ = LEFT$( J$ , LEN( J 

TAB(1)C3$C3$D$:RETURN $)_1) ^ 

•1000 B$ = "":FORJ=ITOLEN(A$):B=ASC( .3057 PRINT" { RV } { Gl ] "TAB( 1 7 ) 1$ • • AS 

MID$(A$,J,1)):B=B+32:B=B-96*(B<96 =RIGHT$( J$ , 1 ) : GOSUBIOOO 

},,, „^ ^ 'SOSS PRINT"{RV) {WH]"TAB(31)B$;TAB 

•1010 B$=B$+CHR$(B) :NEXT:RETURN ( 33 ) " {Gl } "G$ (X , E) 

•1100 A$=STR$(N0):LN=LEN(A$)-1 '3060 NO=S ( X ) : P=4 : GOSUBUOO tGOSUBl 

•1110 F0RJ=1T0P-LN:A$=" "+A$:NEXT: 000 : PRINT" { WH } "R$ ( 22 )TAB( 33 )B$ • GO 

A$=RIGHT$(A$,P):RETURN SUB800 

.2000 P0KESE+5,0:P0KESE+6, 247: POKE .3090 POKECO , 3 : PRINT" ( WH ] "R$( 20)S1 

SE+4,17:POKESE+1,50:POKESE,0 $:RETURN i / i-v > 

•2010 F0RT=1T099:NEXT:P0KESE+4,16: .3500 POKECO, 4 : PRINTR$( 20) " { WH ) "S2 

•2100 POKESE+5,45:POKESE+6,165:POK -3505 GETA$ : IFA$-""THEN3505 
ESE+4,33:P0KESE+1,6:P0KESE,5 -3506 IFASC( A$ )=13THEN3590 

*^pn^'p^2^^r'^oi.^2^2^oJ = ^°^^^^^'^'^2-3510 K = ASC(A$)-G4:IFK>N(X)0RK<1TH 
:P0KESE+1,0:P0KESE,80:RETURN ENGOSUB2100 : GOT03505 

.2500 I$="":N(X)=N(X)+1:P0KEC0,2 .3520 IFI$(X , K )=TI$ (X , K )THENG0SUB2 

•2502 PRINTR$(23);:INPUT"{G1) EXTR 100:GOT03505 ; i nr-ivi^u^uu^ 

JJT^^J";?*,,,, '3535 GOSUB1000:PRINT"{WH}"ER$R$(2 

•2504 IFI$=""THENP0KEC0,3:PRINTR$( 2 )S3$B$" (Gl } " : INPUTW$ 

23)" ^ ":RETURN .3540 N0=VAL( W$ ) : P=4 :GOSUBU0O :G$( 

•2505 IFASC(I$) = 13THENPOKECO,3:RET X , K) = A$ : PRINTP4 ( 21 ) " 

URN .3550 PRINT"{WH}"R$(23)" "R$( 

•2507 IFLEN(I$)>12THENI$=LEFT$(I$, 22)S4$B$" (Gl } " ; 

^2) '3555 GETA$:IFA$=""THEN3555 

•2510 I$(X,N(X))=I$+"X":PRINTR$(23 '3556 IFASC( A$)=13THEN3580 

I", "'3560 I$(X,K)-LEFT$(I$(X,K),LEN(I$ 

•2520 PRINTR$(23);:INPUT" WEIGHT"; {X,K))-1)+A$ 

NO:P=4:GOSUB1100:G$(X,N(X))=A$ .3565 GOSUBIOOO : PRINT" (WH }{ RV ] "R$ C 
.2530 PRINTR$(23)" K+1)TAB(31)B$ 

,,,, " '3580 PRINT"{RV}{G.l}"rx$(K + l)TAB(33 

•2540 PRINTR$(N(X) + 1);:A$=CHR$(N(X )G$(X , K) : PRINTRS r 21 ) " 

)+64) :G0SUB1000:PRINTTAB(14)"(RV) .3590 POKECO , 3 : PRINT" {WK ) "R$( 20)S1 

tWH)"B$; $R$(22)" ":RETURN 

•2550 PRINT"{RV){G1)"TAB(17)I$;:AS .4000 PRINT" { SC )": POKECO , 3 : P0KEC0+ 

= X :G0SUB1000 1 1 : POKECO+2 , U : POKECO+3 , 15 : POKEC 

•2590 PRINT"{RV}{WH]"TAB(31)B$;TAB 0+4.12 

(33)"{G1}"G$(X,N(X)):G0SUB2000:P0 .4010 A$=" CATEGORY ":G0SUB1000 

KECO, 3: RETURN : T2$=B$ : T3$=" SUBTOTAL" 

•3000 POKECO, 10:PRINT"{WH}"R$(20)S .4015 PRINT" { RV ) { G3 } " R$ ( 2 )TAB( 7 )L$ 

0$; L$L$L$T2$"{G1 }"T3$; 
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4020 FOR I=lT0M+2: PRINT" (RV)"R$(I+ 

2)TAB(7)D$C3$C4$C4$C4$L$C3$C3$DSD 

$:NEXT 

4030 F0RI=1T0M:N0=S(I) :P=5:G0SUB1 

100:G0SUB1000:N2$=B$ 

4040 N0=I:P=1 :GOSUB1100:GOSUB1000 

:N1$=B$ 

4050 PRINT"{RV} { WH} "R$( 3+1 )TAB(8) 

N1$D$TAB(12)C$(I)TAB(26)N2$:NEXT 

4055 A$=" FINAL TOTAL ":GOSUB1000 

: F$=B$ 

4060 NO=FT:P=6:GOSUB1100:GOSUB100 

0:FT$=B$ 

4090 PRINT"IWH) {RV}"R$(20)TAB(10) 

CX$CX$D$D$: PRINT" {RV}"TAB( 10) F$FT 

$D$ 

4100 PRINT" {RV} "TAB (10)CX$CX$D$D$ 

4120 PRINT"{WH)"R$(24)F2$TAB(10)F 

6$TAB(20)F8$TAB(30)E1$; 

4130 GETA$:IFA$=""THEN4130 

4140 IFA$="{F2)"THEN6000 

4150 IFA$="E"THENPRINT"{HM}":END 

4160 IFA$ = "{F8r'THEN5000 

4161 IFA$="{F6}"THEN7000 
4170 GOSUB2100:GOT04130 

5000 PRINTES$"{HM)"; : POKECO+3 , U : 
POKECO+3 ,13: POKECO+4 , 5 : POKECO , 1 
5005 TB=1:C=0:F0RI=1T023:PRINT" ( 
RV)"CL$D$CL$D$CL$:NEXT 

5010 PRINT"{HM)"; : FORX=1TOM : A$=C$ 
(X) :C = C+1:IFC = 23THENTB=TB+13:C=1: 
PRINT"(HM)"; 

5011 0$=" "+C$(X) :FORI=LEN(0$)TO 
11 :0$=0$+" ":NEXT:PRINT"(BL)"TAB( 
TB)0$"{G1)" 

5015 FORY=1TON(X) : IFTI$( X , Y )=""TH 
EN 5050 

5016 C=C+1 :IFC=24THENTB=TB+13:C=1 
:PRINT"(HM)"; 

5020 I$=TI$(X,Y):IFLEN(I$)>12THEN 

I$=LEFT$(I$, 12) 

5035 PRINT"{RV}"TAB(TB)I$ 

5050 NEXTY,X:PRINTR$(24)"{WH)"F2$ 

TAB(10)F4$TAB(20)F6$TAB(30)E1$; 

5060 GETA$:IFA$=""THEN5060 

5070 IFA$="E"THENPRINT"{HM)":END 

5080 IFA$="{F2)"THEN6000 

5090 IFA$="{F4)"THEN4000 

5095 IFA$="{F6}"THEN7000 

5099 G0SUB2100:GOTO5O60 

6000 POKECO, 3:PRINT"{SC} {CD} (CD) { 

CD} (CD] (CD) (G1)"TAB(12)"WHAT GATE 

GORY?":PRINT 



READER SERVICE INDEX 



Rige 


Company 


Reader 


No. 




Svc. No. 


49 


Academy Software 


1 


50 


Counterpoiiit Software, Inc. 


2 


57 


Creative Equipment 


3^ 


43 


Micro Systems Development 


4 


64 


Davidson & Associates 


5 


65 


Spinnaker Software 


6 


65 


Commodore Software 


7 


66 


Sierra On-Line 


8 


66 


Spinnaker Software 


9 


58 


Spinnaker Software 


10 


30-35 


Protecto Enterprizes 


U-16 


5 


Cardco, Inc. 


17-19 


5 


LE'ICO 


20 


6 


MB International, Inc. 


21 


6 


Sound Expansions 


22 


7 


HollisCraft 


23 


7 


TOTL Software 


24 


15 


Atari 


25 


16 


Broderbund 


26 


22 


TOTL Software 


27 


18 


Amtype Corporation 


28 


51 


Advanced Ideas 


29 


54 


Insta Software 


30 


53 


Event Horizon Software 


31 


20 


Computer Creations, Inc. 


32 


46 


Eastern House 


33 


29 


Microtechnic Solutions, Inc. 


34 


C-4 


KJwisoft 


35 


C-3 


Cardco 


36 


61 


Mfcro Ware 


37 


52 


Cadmean Corporation 


38 


8 


HP Books 


39 


24 


lY'ansactor Publishing 


40 


26 


INDUS-TOOL 


41 


9 


MUSE Software 


42 


18 


Superior Micro Systems 


43 


10 


Mkro Wkre 


44 
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. 6005 F0RI=1T0M:PRINTTAB(12)CHR$(I 
+64)" "C$(I):NEXT 
6010 GETA$:IFA$ = ""THEN6^jlO 
6020 IFASC(A$)<650RASC(A$)>M+64TH 
EN6010 

6026 CH=-1 :POKECO+2,14:POKECO+3,l 
3:POKEC0+4,5 

6030 P0KEC0+1,3:X=ASC(A$)-64:G0SU 
B500 

6040 PRINT"{WH)"R$(24)F1$TAB(10)F 
3$TAB(20)F4$TAB(30)F5$; 

6050 F0RK=1T0N(X) : IFTI$( X , K ) <>""T 
HENG0SUB400 

6051 NEXT:GOSUB800:NO=S(X) :P=5:G0 
SUB1100:GOSUB1000:PRINTR$(22)TAB( 
31)D$B$D$ 

6060 CH=0:PRINT"{WH)"R$(20)S1$ 
6150 GETK$:IFK$=""THEN6150 

6155 PRINTERS; : IFK$=" {F4 } "THEN400 


6156 IFK$="{F1}"THENG0SUB3000:G0T 
06150 

6157 IFK$="{F5 3"THENGOSUB3500:GOT 
06150 

6158 IFK$="{F3)"THENGOSUB2500:GOT 
06150 

6160 K=ASC(K$)-64:IFK>N(X)0RK<0TH 

ENG0SUB2 1 00 : G0T06 1 50 

6170 IFI$(X,K)=TI$(X,K)THENG0SUB2 - 

100:GOT06150 

6180 GOSUB400:GOT06150 

7000 POKECO, 1 :P0KEC0+1 , 1 :PRINT"{S 

C )":F0RI = 1T05: PRINT: NEXT :L$=CHR$( 

13) :S$=CHR$(32) 

7010 ST$=CHR$(15):FORr=lT075:BL$= 

BL$+CHR$(99) :NEXT 

7020 INPUT" (BKjTITLE FOR HARD COP 

Y";H$ 

7030 BX$=CHR$(8):F0RI=1T07:READA: 
BX$=BX$+CHR$(A) :NEXT:BX$=BX$+ST$ 
7040 F0RI = 1T04 : READT$ : T$ (I )'=CHR$( 
16)+T$:NEXT 

7100 0PEN4,4:PRINT#4,CHR$(16)"25 
"CHR$(14)H$ST$ 

7105 PRINT#4,L$CHR$(18)BL$CHR$(14 

6)L$L$ 

7110 F0RI=1T0M:N0=S(I):P=5:G0SUB1 
100 :G0SIJB 1100 

7115 PRINT#4,CHR$(14)C$(I)CHR$(16 
)"15"A$ST$L$ 

7120 G=0:FORJ=1TON(I):IFTI$(I,J)= 

""THEN7160 

7125 G=G+1:IFG=3THENG=1:PRINT#4 
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7130 I$=TI$(I,J):PRINT#4,T$(2*G-1 
)" "BX$S$LEFT$(I$,LEN(I$)-1); 

7140 PRINT#4,T$( 2*G ) RIGHTS (I$,1)S 

$S$TG$(I,J); 

7160 NEXT:PRINT#4,LSLSBL$:NEXT 

7165 PRINT#4,L$CHR$(14)"FINAL TOT 

AL"CHR${16)"15"FT;ST$ 

7170 PRINT#4:CL0SE4:END 

9000 DATA SHELTER ,AIR MATTRESS , 

490,SLPG. BAG L,1000,SLPG. BAG H, 

1775 

9010 DATA 

, 1820,0,0 

9020 DATA 



GROUNDSHEET ,225, TENT * 
CLOTHING, TIGHTS *,275,J 



260, SOCKS ,35, NYLON SHORT 



ACKET * 

S ,60 

9030 DATAPANTS ,34f),0,0 

9080 DATA ACCESSORY , LOCK+CABLE .3 

60, SPARE TUBE ,70, TOOLS ,205,FLAS 

HLIGHT ,50 

9085 DATASWISSKNIFE ,70,0,0 

9090 DATA CO0KWARE,CUP .lO.UTENSI 

LS ,45, POT ,2 50, BOWL ,60 

9110 DATA STOVE G , 280 , CARTRI DGES 

2,320,0,0 

9200 DA^AEND 

9300 DATA255,193,193,193, 193, 193, 
255 

9350 DATA08,24,44,60 

BUG REPELLENT LINE CODES 
FOR CHECKLIST 



LINE 


# 


1 : J H 


LINE 


# 


100: EN 


LINE 


# 


20:GN 


LINE 


# 


110:0A 


LINE 


# 


25:PA 


LINE 


# 


115: JH 


LINE 


# 


26:NH 


LINE 


# 


120:FC 


LINE 


# 


30:NL 


LINE 


# 


130:IM 


LINE 


# 


32: CM 


LINE 


# 


150:GJ 


LINE 


# 


33:KP 


LINE 


# 


155: MI 


LINE 


# 


34:BA 


LINE 


# 


156:P0 


LINE 


# 


35:LG 


LINE 


# 


158:CJ 


LINE 


# 


36:ME 


LINE 


# 


159:0L 


LINE 


# 


37:JB 


LINE 


# 


160:FL 


LINE 


# 


38:EM 


LINE 


# 


170: MI 


LINE 


# 


39:GC 


LINE 


# 


190:HM 


LINE 


# 


40:AB 


LINE 


# 


260:HA 


LINE 


# 


41:JB 


LINE 


# 


400 :CG 


LINE 


# 


43:ED 


LINE 


# 


402 :FF 


LINE 


# 


44:MB 


LINE 


# 


405 :FL 


LINE 


# 


45:GI 


LINE 


# 


410:JE 


LINE 


# 


46:LL 


LINE 


# 


4 20:IJ 


LINE 


# 


60: FD 


LINE 


# 


430: EG 


LINE 


# 


70: LP 


LINE 


# 


440 :IC 



LINE. 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 

LINE 



470 

475 

480 

500 

520 

522 

530 

540 

545 

550 

560 

700 

715 

7 50 

760 

7 70 

780 

800 

810 

820: 

1000 

1010 

1100 

1110 

2 000 

2 010 

2 1 00 

2110 

2 500 

2 502 

2 504 

2505 

2507 

2510 

2520 

2530 

2 540 
2550 
2590 
3000 
3010 
3015 
3020 
3030 
3035 
305 5 
3056 
305 7 
3058 
3060 
3090 

3 500 
3 505 



FD 

FK 

EN 

DC 

PO 

DP 

OB 

MJ 

FK 

LP 

DE 

LO 

KG 

JE 

DP 

AM 

IM 

BB 

CP 

DH 
EE 
DC 
OL 
BO 
EF 
EH 
HB 
OC 
CL 
HI 
IM 
AF 
AP 
IN 
EP 
PA 
IP 
AA 
PC 
OJ 
LI 
BM 
PN 
NL 
MP 
PB 
EO 
LP 
BL 
EL 
IP 
BG 
LB 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 

# 
# 
# 

# 
# 
# 

# 
# 
# 

# 

# 

# 
# 

# 
# 
# 
# 
# 

# 
# 
# 
# 
# 

# 

# 
# 
# 
# 
# 



3 506: 
3510; 
3 5 20: 
3535: 
3540: 
3 5 50: 
3555; 
3556; 
3 560; 
3565; 
3 580; 
3590; 
4000; 
4010; 
4015; 
4020; 
4030; 
4040; 
4050; 
4055; 
4060; 
4090; 
4100; 
412 0; 
4130; 
4140; 
4150; 
4160; 
4161: 
4170: 
5000: 

5005: 
5010: 
5011 ; 
5015; 
5016; 
5020; 
5035; 
5050; 
5060; 
507 0; 
5080; 
5090: 
5095: 
5099: 
6000: 
6005: 
6010: 
60 20: 
6026; 
6030: 
6040: 
6050: 



KP 
DK 
MG 
MD 
KJ 
HB 
LE 
JO 
GB 
BO 
OH 
lA 
KO 
GN 
DN 
KB 
KC 
BG 
CE 
NM 
ED 
DO 
HF 
OR 
LH 
PF 
JP 
PF 
NC 
OA 
AO 

NI 

HK 

ML 
HO 
NK 
CL 
LL 
JL 
KF 
JP 
PF 
PM 
NC 
NB 
BM 
KN 
KD 
ID 
IL 
DO 
DP 
OB 



LINE 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



# 

# 
# 

# 

# 

# 
# 

# 

# 
# 



6051; 
6060; 
6150; 
6155; 
6156: 
6157; 
6158: 
6160: 
6170: 
6180: 
7000; 
7010: 
7020; 
7030: 
7040: 
7 1 00 ; 
7105: 
7110: 
7115: 



EJ 
GJ 
LE 
OE 
NI 
EB 
OD 
NA 
LF 
KC 
HL 
GI 
OG 
lA 
OE 
EP 
BB 
HD 
KH 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINES 



7120; 

7125 

7130 

7140 

7 1 60 

7165 

717 

9000 

9010 

9020 

9030 

9080: 

9085 

9090 

9110:LH 

9 200: GB 

9300: PN 

93 50: LC 

185 



KH 
BB 
00 
AG 
AC 
EL 
KH 
IH 
FP 
EG 
HI 
CK 
AK 
JC 



RENUMBERING 

FROM PAGE 29 



IMPORTANT 

Before typing in an Ahoy! program, refer to tfie 
first two pages of the program listings section. 



1 00 

110 
■120 

BER 
■130 

4" 



REM 2-17-84 
DIM L(2000) 

PRINT" (SC] {CD]";SPC(9);"RENUH 
UTILITY":PRINT 

PRINTSPC(8)"(C) COPYRIGHT 198 
PRINTSPC(11);"ANTH0NY WOOD" 



'140 PRINT:INPUT"NAME OF PROGRAM T 

RENUMBER" ;I$ 

150 INPUT"NAME OF RENUMBERED PROG 

RAM";P$ 
>160 INPUT"FIRST LINE 

CL]{CL]{CL){CL]{CL)": 
-170 INPUT"INCREMENT? 

L) {CL}";I:PRINT 

180 DEF FNMB ( X ) = INT(X/256 ) 
I 190 DEF FNLB ( X ) = X-FNMB(X )*256 
-200 PRINT"PASS ONE . . . " : 0PENI5 , 8 . 

5, "10" 

210 0PEN2,8,2,I$+",P,R" 
■ 220 INPUT#15,E,ER$,A,A:IFE<>0THEN 

PRINTER$:CL0SE15:END 
.230 GOSUB 490:A=V 
•240 GOSUB 490:IFV=0THEN 280 
•250 E=V:GOSUB 490 : L(K)=V : K=K+1 : A= 
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NUMBER? 100{ 

S 

10(CL} (CL) (C 



1 



A+4 

260 IFA=ETHEN 240 

270 GET#2, A$:A=A+1 :GOTO 260 

280 CLOSE 2:PRINT"PASS TWO..." 

290 OPEN2,8,2,I$+",P,R":OPEN3,8 

,P$+",P,W":INPUT#15,E,ER$,A,A 

300 IFE<>0THENPRINTER$:CL0SE2 

SE15:END 

310 GOSUB 490:A=V:PRINT#3,A$;B$ 

C=0 

3 20 

330 

340 

345 

TO 



CLO 



CHANGE REF 
490:L$="" 



REM READ LINE & 
GOSUB 490:GOSUB 

GET#2,A$ 

IFA$=CHR$(137)THENG0SUB500: 
345 



GO 



350 IFA$=CHR$(141)THENG0SUB5OO:GO 
TO 345 

360 IFA$=CHR$(167)THENGOSUB500:GO 

T0345 

370 IFLEN(A$)=OTHEN 430 

380 IFA$<>CHR$(24)THENL$=L$+A$:GO 

TO 340 

390 L$=L$+A$ 

GET#2,A$:IFLEN(A$)=0THEN 430 
L$=L$+A$:IFA$=CHR$(24)THEN 34 



400 

410 



420 

430 



GOTO 400 

A=A+5+LEN(L$):PRINT#3,CHR$(FN 
LB(A)) ;CHR${FNMB(A)) ; 
440 PRINT#3,CHR$(FNLB(S+C*I));CHR 
$(FNMB(S+C*I)); 
450 PRINT#3,L$;CHR$(0); 
460 C=C+1 :IFC<>KTHEN 330 
4 70 PRINT#3,CHR$(0) ; CHR$ ( 0) ; CHR$( 
0); 

480 CL0SE2: CLOSES :CL0SE1 5 :PRINT"D 
ONE": END 

490 GET#2,A$:GET#2,B$: V=ASC(A$+CH 
R$( 0))+ASC(B$+CHR$(0))*256: RETURN 
500 N$="":L$=L$+A$ 
510 GET|2,A$:IFA$=" "THEN 510 
520 GOTO 540 
530 GET#2,A$ 

540 IFA$<"0"0RA$>"9"THEN 560 
550 N$=N$+A$:G0T0 530 
560 IFN$=""THEN610 
570 N=VAL(N$) :F0RX=0T0K-1 
580 IFL(X)=NTHEN 600 
590 NEXT:PRINT"UNDEF'D LINE NO: " 
; N$ : L$=L$+"0000" : G0T0610 
600 L$=L$+STR$(X*I+S) 
610 IFA$=","THEN500 
630 RETURN 
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BUG 
FOR 

LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



REPELLENT 
RENUMBERI 

# 100:PK 

# 110:0E 

# 120: DA 

# 130:NH 

# 140: PI 

# 150: OF 

# 160: EL 

# 170:NN 

# 180: MI 

# 190 :MK 

# 200 :MG 

# 210:BN 

# 2 20: EH 

# 230: ME 

# 240:IA 

# 250 :PJ 

# 260 :AP 

# 270:GF 

# 280 :NP 

# 290: OH 

# 300 :IM 

# 310:01 

# 320:AK 

# 330:CF 

# 340 :JB 

# 345:D0 

# 3 50: MP 

# 360: EH 



LINE CODES 
NG UTILITY 

LINE # 37 
LINE # 38 
LINE # 39 
LINE # 40 
LINE # 41 
LINE # 42 
LINE # 43 
LINE # 44 
LINE # 45 
LINE # 46 
LINE # 47 
LINE » 48 
LINE # 49 
LINE # 50 
LINE # 51 
LINE # 52 
LINE # 53 
LINE # 54 
LINE # 55 
LINE # 56' 
LINE # 57 
LINE # 58' 
LINE # 59 
LINE # 60 
LINE # 61 
LINE # 63 
LINES: 54 



:GL 
:IN 
:LK 
:C0 
:EN 
:CA 
:GK 
:GJ 
:AK 
:0I 
:IA 
:AJ 
:CC 
:GL 
:CP 
:CN 
:JB 
:K0 
:BM 
:EH 
:EF 
:0M 
:D0 
:KP 
:GP 
:IM 
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t 
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Continued from page 17 

marker, contained in the array REfx^, This is set up 
in line 565. 

The setup in lines 600 to 635 is more complex 
now, too. Each ship has its own color (line 610), 
and each ship has its own row number (line 615, 



the array VPfx) ). Line 620 randomly assigns each 
ship its starting position along its row— HP^— and 
its starling direction of movement— DIf.vj. Thus, the 
ocean liner will be SH$(0,.v). its horizontal position 
will be HP(0), its vertical position will be VP(0), its 
color will be CL$(I), and its direction of movement 
will be DI(0). This means that we can use the same 
statement to PRINT any of the ships, just by chang- 
ing a single index variable, /; 

125 PRINT VP$(VP(I))TAB(HP(I))CL$ 
(I)SH$(I,D(I)) 

I'hc same lines can also be used to change the 
horizontal position and direction as each ship moves 
back and forth on its row: 

105 HP(I)=HP(I)+DI(I) :IF HP(I)>RE 
(I) THEN DI(I)=-DI(I):HP(I)=RE(I) 
:GOTO 115 

110 IF HP(I)=-1 THEN HP(I)=0:DI(I 
)=-DI(I) 

115 D(I)=DI(I):IF D(I)=-1 THEN D( 
I)=0 

Notice that there are two variables to control direc- 
tion, DIf.i;) and Df.v). This is because direction is 
used two ways. DI(1) is used to change the value of 
HP(I). Therefore, to move leftward, D1(I) must 
have a value of - 1 , and a value of 1 to move 
rightward. However, in PRINTing SHS(1,D(1)), the 
second element of the array must be a positive inte- 
ger—a value of - 1 , for leftward movement, would 
cause an error. Therefore, when the variable DI(I) 
is set to - 1 , the variable D(I) is set to 0. A little 
complicated, but it works. 

Only one more complication. We could move all 
three ships at the same speed by having the main 
loop be 

100 FOR 1=0 TO 2 

Then each time through the loop, one of the ships 
would move. But we want each movement of the 
ocean liner to be accompanied by two movements of 
the cruiser and four movements of the speedboat. 
Therefore we use the line 
100 FOR K=0 TO 6:I=X(K) 
The array Xf.vJ has been previously set up (in line 
630) so that X(0) equals 0, X{1) and X(4) equals I. 
and all the other values equal 2. Thus, each lime 
the program completes the K loop, it has moved the 
ocean liner once (when K equaled 0), the cruiser 
twice (when K equaled I and when K equaled 4). 
and the speedboat four times (when K equaled 2, 3, 
5. and 6). There is a little jerkiness in the move- 
ment, but when you run the program youTi see that 
BASIC can gel pretty quick movement. 

Actually, there's a trick to this. By having the 



speedboat move so often, the screen is given the il- 
lusion of speed— even though the other two ships 
move much, much more slowly. Remember, the il- 
lusion of speed is all thai mailers. 

YOU CAN DO BETTER THAN THIS 

This is really a very simple, unsophisticated dis- 
play. Three types of boats, a buoy, and a lighthouse 
aren't exactly a dazzling effect. But you should see 
that movement on the screen and displays with ran- 
domness and variety are easy to program. 

And for those of you who have fun with this dis- 
play routine, how about writing the few lines of 
code that would get the player's boat on the screen, 
drifting steadily upward, while the player controls 
the boat's left-and-right movement? Send in your al- 
terations to either the Moving Display or Random 
Display programs, either on disk or carefully written 
out, and we'll run the best implementation of the 
game in a later issue. 

SEE PROGRAM LISTINGS ON PAGE 86 
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Continued from page 60 

used instead of the "I". The computer would then 
automatically write an "end-of-tlle" character to the 
end of our file when it is closed, but for this exam- 
ple it doesn't really matter. 

The secondary address for the disk can be any 
number from 2 to 14 when we arc reading t)r writ- 
ing a disk data file. Since the choice is arbitrary, an 
"8" was used for consistency. 

The string following the secondary address con- 
tains the file-name and (for the disk) other file in- 
formation. The tile-name is used only when we 
want the computer to locale the file. Once it has 
been located, we always refer to the file by means 
of its file-number. For disk files, we included an 
■■S" and a "W" to indicate that this file is a ■"Se- 
quential" file and that we are "Writing" to it. 

The CLOSE statement is much simpler to explain. 
The number following it tells which file we are 
done working with. Once again, we are referring to 
the file by means of its file-number. When the file 
was OPENed. the computer set aside a buffer in 
memory through which the data we wrote was gath- 
ered and transferred to the file. The CLOSE state- 
ment makes sure that nothing is left behind in the 
buffer and that the proper "end-of-file" information 
is .sent to the tape t)r disk. It may be impossible to 
get any or all of the data back out of a file which 
was not properly CLOSEd. 
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It is gtmd programming practice to leave files 
open only as long as necessary to access them. Al- 
though the computer doesn't flag a missing CLOSE 
statement as it dtxjs a missing NEXT, for example, 
it is a giwd idea to make sure that every OPEN 
statement has a corresponding CLOSE statement 
which will always be executed. If a file-handling 
program you are working on "bombs" and a file is 
left open, the red light on the disk drive may re- 
main on. If so. it is advisable to close any files that 
might have been opened. You can do this in the di- 
rect mode simply by typing CLOSE 8 for example. 
Tape files are not as vulnerable to mishandling as 
disk files, but you may as well use proper tech- 
niques in all your programming. 

ONWARD AND ONWARD 

Whew! Who would have thought that a three-line 
program would have required so much explanation? 
Certainly there is a lot to learn about the use of 
files, but we have already covered the majority of 
the new concepts. If you understand what we've 
done so far, then you are ready to continue. If not, 
go through the previous section one more time. 

Let's find out how to bring the data from the file 
back into the computer. There are two basic ways 
of doing that. We may GET the data from the file 
one character at a time, or we may INPUT a com- 
plete data record. 

We'll begin with the shorter method. This pro- 
gram INPUTS the data in one chunk and assigns it 
to the variable DS: 

Afj OPEN 1,1,0,"FIRSTFILE" 
50 INPUT#1, D$ 
60 PRINT D$ 
70 CLOSE 1 

If you are using the disk, change line 40 to: 

40 OPEN 8,8,8,"FIRSTFILE,S,R" 

and change the I's in lines 50 and 70 to 8's. 

Hopefully the OPEN and CLOSE statements are 
reasonably familiar. We now use a for the sec- 
ondary address to specify a "read" operation on the 
tape file. The numbers in the OPEN statement for 
the disk don't change, but the "R" for "read" re- 
places the "W" which we used previously to write 
the file. 

Here are just a couple of p<iinters before we con- 
tinue. Although it is generally preferable for reada- 
bility to separate tenns within a program, there are 

96 AHOY! 



some cases where it is not possible. Specifically the 
PRINT* and INPUTS (as well as the GET#) state- 
ments must not have a space before the "#". An- 
other thing to remember is that the number used 
with the INPUT*, PRINT*, and GET* as well as 
the CLOSE statements is always the first number in 
the OPEN statement. That makes it easy. 

Before you run this program, rewind the tape to 
the start of the file (zero on the counter if you re- 
membered to reset it). Also either erase lines 10-30 
from the first program, or add the statement: 

5 GOTO 40 

When you type RUN with the tape version, the 
computer responds "Press Play on Tape." If you 
do just that, the recorder runs for a few seconds, 
accompanied by blankings of the video screen. Fi- 
nally the word "COMPUTER" is displayed on the 
screen followed by the READY prompt. The disk 
version gives the same results without the blanking 
of the screen . 

REALLY GETTING INTO FILES 

Now let's look at a slightly more complicated but 
potentially more powerful method of inputting data 
from a file. The GET* statement, just like its key- 
board counterpart GET, reads data one character at 
a time. This program gives us some insight as to 
how a file is organized: 

40 OPEN 1,1,0,"FIRSTFILE" 

50 GET#1 , C$ 

60 PRINT C$,ASC(C$) 

70 IF C$ < > CHR$(13) THEN 50 

80 CLOSE 1 

If you are using a disk, change line 40 (as before) to: 

40 0PEN8,8,8,"FIRSTFILE,S,R" 

Also change the I's in lines 50 and 80 to 8's. 

Properly position the tape and type RUN. Verti- 
cally down the screen are the characters of the word 
"COMPUTER" and beside each letter is its ASCII 
code. The last ASCII code is 13, which represents a 
carriage return. Just as a normal PRINT statement 
puts a carriage return at the end of a statement like 

PRINT "COMPUTER" 

the PRINT* statement which created this file also 
put a CHR$(13) at the end of the file. 



This type of program lets you examine the details 
of any sequential file. Each record in a file is separ- 
ated from the next by means of some terminator or 
separator. This separator will be either a comma, 
CHRS(44). a carriage return, CHR$(I3), or a semi- 
colon, CHR$(59). 

If yuu know the form of the PRINT* statement(s) 
which created the file, you may use INPUTS state- 
ment(s) of exactly the same format. If, however, 
you are working with a file, and you don't know 
how the records are grouped, the GET# statement 
can help you dig out that information. 

Line 60 in the program above has a possible 
glitch. If a character with ASCII code is read into 
C$ from the file, ASC(C$) will generate an '.'ILLE- 
GAL QUANTITY ERROR, since character is 
read as a null string instead of a true CHRS(O). 
(Try PRINT ASC("'") to .see what happens.) To 
protect against such a case, use ASC(CS + CHRS(0)) 
as explained on page 342 of the Cottmodore 64 
Programmer's Reference Guide. 

You might add lines 75 and 100 to the program 
above: 

75 RS = R$ + C$ 
100 PRINT R$ 

This way you may build up the string character by 
character and display the results. 

The following program is a more general sequen- 
tial file inve.slijiator: 



5 REM >> GEN 
10 INPUT"WHA 
20 OPEN 8,8, 
30 GET#8,A$ 
40 A=ASC(A$+ 
50 PRINT A$, 
60 C$=C$+A$ 
70 REM - CHE 
N OR COMMA 



80 IF A013 
HEN 30 
90 PRINT 
100 N=VAL(C$ 
110 PRINT "- 
N 

120 PRINT " 
";CHR$(N) 
130 C$="" 
140 PRINTrPR 
/ANY OTHER K 
150 GET KB$: 



ERAL FILE READER <<< 
T FILE NAME";N$ 
8,N$+",S,R" 

CHR$(0)) 
A 

CK FOR CARRIAGE RETUR 

R SEMI-COLON 

AND A044 AND A059 T 



— STRING VALUE = ";C$ 
) 
-NUMERIC VALUE N = "; 

CHR$(N) = 



INT"PRESS Fl TO STOP/ 

EY TO GO" 

IF KB$="" THEN 150 



160 IF KB$<>CHR$(133) THEN 30 
170 CLOSE 8: END 

This program reads each character of a specified 
sequential file. It builds up a string from the charac- 
ters until a carriage return, a comma, or a semi- 
colon is found. It prints the string, the numeric val- 
ue of the string, and the ASCII character with that 
numeric value. 

If you hold down the space bar. the entire file is 
displayed. You may slop the program and close the 
file by pressing fl . If the program reads beyond the 
end of the file, the screen scrolls continuously since 
no more separators are found. Press the RUN/STOP 
key to stop the program if that happens. 

For tape files, change line 20 as follows: 

20 OPEN 1,1,0,N$ 

Also change the 8's in lines 30 and 170 to Ts. 
With tapes it is not necessary to specify the file- 
name. If you ju.st press < RETURN >, the program 
will read the first file it finds (either data or pro- 
gram files). If you have both disks and tapes, be 
sure that the disk Wedge is not installed when you 
work with tape files. There are incompatibilities be- 
tween the two. If the Wedge is installed, type @Q 
to exit it. 

For more advanced investigations into files, you 
might change the "S" in line 20 to "P" in the disk 
version. This will allow you to read and display the 
contents of program files rather than data files. The 
tape version will not need any changes to read ei- 
ther type of file. You might want to put a statement 
similar to line 150 after line 30 so that you can 
more easily step through the file. You will find that 
the separators that line 80 looks for are less com- 
mon in program files. Also you may want to "fil- 
ter" out some of the character ctxles which will dis- 
rupt the color setup on your display. (A color com- 
bination of white letters on a white background 
would provide less than useful information.) 

Hopefully you have learned enough about files to 
be able to write and then read the confidential file 
described at the beginning of this article. Unfonun- 
ately, that will get you only part of the way to the 
goal. There is still the problem of deciphering the 
file once you have read it. 

Put your cryptoanalytical powers and file-handling 
abilities to work. See if you can write a program 
which will read Confidential File 3X501 and proper- 
ly decode it. You will know when your answer is 
correct! D 
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EDUCATIONAL 
SOFTWARE 

Continued from page 66 

Inabeth Miller, the librarian for the faculty of 
education at Harvard, says that in the schools, Logo 
will be one of the two most important pieces of 
educational software, along with word processing 
programs. Commodore has its own version of Logo 
for the C-64. It includes turtle graphics commands 
and also has sophisticated programming features for 
manipulating text. Another turtle graphics environ- 
ment is available in Tamarack Software's Vanilla 
PILOT. Short tor programmed inquiry, learning or 
teaching, PILOT began at the University of Califor- 
nia Medical Center as an authoring language for 
computer-assisted instruction. When Logo became 
popular, versions of PILOT with turtle graphics 
'^ were developed. Today, the line between the two 

languages has faded. 
) ^ Spinnaker's president, David Seuss, praises turtle 

graphics but finds little value in the text manipula- 
tion capabilities of Logo. He feels that those capa- 
bilities, founded on research in artificial intelli- 
gence, are unnecessary overhead for Logo's turtle 
graphics. These opinions are evident in Spinnaker's 
Delta Drawing: a turtle graphics environment for 
even very young children. Single keystrokes— D for 
draw, R for turn right— make the turtle respond im- 
mediately. Your child can program by watching the 
turtle rather than by typing a list of commands 
which 'should' do what he wants. In Delta Draw- 
ing, he can toggle to a screen which lists all the 
commands he has typed, but children usually start 
by just watching the turtle obey their commands. 
Whatever category of educational software you 
choose for your child— drill and practice, tutorial, 
simulation, or problem solving— consider the child's 
interests, needs and abilities. If all three areas are 
weak (the child has no interest in the subject. 



doesn't need to know it, and lacks the ability to 
learn it), move on. It is as often the presentation of 
the subject which peaks a child's interest as it is the 
subject. "This program looks neat!" If a particular 
method of presentation can encourage your child to 
learn, more power to it. 



Programs mentioned in this article: 

Clmterbee. Tronix, 8295 South La Cieniga Boulevard. Culver Cilv CA 
90301 (213-215-0529). %y).95; disk. 

Comnidore Logo (grades 2 and up). CommoUore, [nc. 1200 Wilson 
Drive. West Chester, PA 19380 (215-431-9100). S59.00; disk. 

Computer Prepamiion/SAT. Haaourt Brace Jovanovich, Inc., 757 Third 
Avenue. New York. NY 10017 (212-888-4303). $79.95 for 2 disks and 
workbook. 

Delta Drawing and Tm'ms. Spinnaker Softw-are Corp., 215 First Street 
Cambridge, MA 02142 (617-868-4700). $39.95; cartridge. 

Dragon's Keep (grade's 2 to 4), Sierra On-Line. Inc.. Sierra On-Linc 
Building. Coarscgold, CA 93614 (219-683-6858). $29.95; disk. 

Early Musk Games. Counlerpoim Software, inc.. Suite 140 Shelard 
Plaza Nonh. Minneapolis, MN 55426 (612-544-4720). S29.95; disk. 

Tiie Factory (grades 4 to adult). Sunburst Ciimmunlcations. Inc.. 39 
Washington Avenue, Plcasantville. NY 10570 (800-431-6616). S49.00 
disk with backup and teacher's guide. 

Fay: Tfie Ward Hunter (grades 3 to 10), Didatech Software. 549-810 
West Broadway. Vancouver. B.C., Canada V5Z 4C9 (604-687-3468). 
S34.95: disk. 

Logo Locomoiiim (requires Commtxiore Logo), Computer Literacy 
Associates. P.O. Box 254. Sherborn. MA 01770 (617-655-4856). S23.95; 
disk. 

SAT Review. Moses Engineering, P.O. Box 1 1038. Andmorc Highway. 
Huntsville, AL 35805 (205-837-3356). $30.00 for 5 cassettes. 



Space Rescue. HesWare, 150 North Hill 
(800-624-2442). $39.95; disk. 



Drive. Brisbane, CA 94005 



Special Learning Ed Sofiware (spelling) (grddcs 4 and up). SLED Soft- 
ware. P.O. Box 16322. Minneapolis, MN 55416 (612 926-5820). $199 
for 2 disks or 26 tapes. 

Speed Reader 11 (all grades). Davidson & Associates. 6069 Gmveoak 
Place # 12, Rancho Palos Verdcs, CA 90274 (213373-9473). $69.95 for 
program disk and 1 data disk. $19,95 for additional data disks. 

Vanilla PILOT. Tamarak Software. Darby, MT 59829 (406-821-4596) 

S29.95; cassette or disk. 
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UNRAVELING 

THE MYSTERIES 

OF SOUND 

ON THE C-64 



WORD 

PROCESSORS: 
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REVIEW 



MICRO-MINDER! 
THE TERRIBLE TWINS! 

AND OTHER VIC AND 64 
PROGRAMS 



CARDCO Letter Quality Printers 

"Commodore-ready", PLUS ... 



An excellent line of Letter Quality PRINTERS are 
readyforyou and "Commodore- ready", PLUS . . . 
compatible input for PC, PC jr.. TRS-80 and a 
tiost of ottier personal computers. 

All three CARDCO PRINTERS are true letter quality 
printers, bi-directional witti continuous printing 
capability, for computers witti Centronics 
parallel output, of excellent quality, standard 
friction-feed, designed in attractive neutral to 
blend witti any decor in your office, tiome or 
business. The fine letter quality is suited for 
personal or business use, ideal for word 
processing applications including subscript, 
supersubscript and bold-typing. 



Priced attractively and much lower than you 
expect. 

. Model LQ/l ... 13" carriage, daisy wheel 

type, printing speed 14 

cps. 

• Model L€l/2 . . . 8%" carriage, drumhead 

design, printing speed 12 
cps. 

• Model LQ/3 ... 1 1" carriage, daisy wheel 

type, printing speed 13 
cps. 

Write for illustrated literature and prices or 
see CARDCO Computer Accessories and 
Software wherever Computers are sold. 





cardco. Inc. 



300 S. Topeka Wichita, Kansas 67202 (316) 267-6525 

■The wortd* $ largest manufacturer of Commodore accessories." 



R«iiiar Sarviu No. 3» 



CADPIC IS THE TOTAL COMPinER-AIDED DESIGN PACKAGE FOR THE C-64 



TM 



• EDUCATION - LEARN PAINTING, GRAPHIC DESIGN AND DRAFTING IN FULL COLOR 

• FUN - DRAW & PRINT CARTOONS. COMIC STRIPS, COLORING-IN & MICRON EYE^" CAMERA PICTURES 

• BUSINESS - GRAPHICS OF EVERY KIND, SHADED PRINTOUT. COMPUTER COLOR SEPARATIONS, ADS 

• HOBBY - TAPESTRY. EMBROIDERY, HOOKED RUG DESIGNS, AND. OF COURSE, 16 COLOR PAINTING 
PAIN iilable on Diskette tor S39.95 

reale 16 color paintings / Pens & brushes for special ettects,/ Draw with CRSR or Joysti 
Automatic shapes (filled & unfilled) / Perspective & Home points / Copying / Mirroring 
Rotation Halving Doubling / Load & save pictures or blocks / Lots of help screens 



M 





BY VELAZQUEZ, A PAINTPIC IMAGE 



.J;li 



PRINTAPIC'" Available on Diskette for $44 95 
Print Paintpic pictures in advanced grey shades or high-resolution : 
' Tapestry, Embroidery. Hooked Rug. Paint by number' prints Co... . ■.■ 
nt Micron'" images ,' Color separations for publication. Ads, business re 



TOGETHER AS CADPIC, FOR ONLY $79J5 - THERE'S NOTHING LIKE m 



GIANT COMPUTER 
ART PRINTS 

NOW YOU CAN GET "ROOIW", 
"STORM" AND "HOLYLAND" 
IN 20"X 24"P0STERS 




.^^ 



i 



I S8.95 EACH SI .00 POSTAGE 
■il AND HANDLING OR, SET OF 
i^ 3 FOR S2S POSTAGE FREE 



CADPIC^*' comes with complete instructions. Payment in advance in U.S. Dollars 
by check or money order or via VISA, AMEX. Add $2.00 postage and handling. 
California residents add 6% sales tax. Paintpic available on cassette $35. 
Dealer Enquiries Wetcome. Product Brochure. Phone 714-261-5114 

MICfonEye IS a Irademark ol Micron Technology. Inc. CommQdorB 64 is a IradamarK o1 Commodore Eleclronics. Ltd 
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1Sa03-LSkypark South, Irvino, CA92714 



Readef Service No. 35 



